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TEST 


Mastertronic hat wieder zugeschlagen. Der neueste Gag des Software- 
hauses ist ein Modul für den 64er, welches, in den Userport gesteckt, 
ein Spiel ohne Grenzen verspricht. Dieses Modul soll dafür sorgen, daß 
bei eingeladenen Spielen die jeweilige Spielfigur „unsterblich ” wird. 


Was bisher in einigen Spielen nur 
über entsprechende Befehlsroutinen 
möglich war, macht nun das Modul 
„Game-Killer“ von Robtek im Ver- 
trieb von Mastertronic allgemein- 
gültig: Es wird in den User-Port des 
C 64 gesteckt und harrt dort der 
Aufgaben, die ihm bevorstehen. 
Nach Einschalten des Computers 
erscheint zuerst einmal das Titel- 
bild des Game-Killers, untermalt 
von Computerklängen des Master- 
tronic-Spezialisten Rob Hubbard, 
welcher schon in diversen Master- 
tronic-Spielen bewiesen hat, daß 
sein Name mit höchster akustischer 
Qualität gleichzusetzen ist. Wer 
dann auf die Space-Taste drückt, 
erlebt schon gleich das erste Erstau- 
nen: Unschuldig meldet sich das 
C 64 Titelbild, wie es eigentlich 
gleich nach demEinschalten erschei- 
nen sollte. 


Kleiner roter Knopf 


Nun kann, egal von welchem 
Speichermedium, das eigentliche 
Spiel in gewohnter Art und Weise 
eingeladen werden. 

Der Spielverlauf wird solange nicht 
beeinflußt, bis ein kleiner roter 
Knopf auf der Modulseite gedrückt 
wird: Damit ist Game-Killer akti- 
viert und nun dürfte eigentlich dem 
Spieler nichts mehr „passieren“. 
Hier allerdings mußte festgestellt 
werden, daß das Robtek-Modul 
nicht ganz den Versprechungen 
der beigelegten deutschen Beschrei- 
bung entsprach. Es gibt (laut Be- 
schreibung) drei Möglichkeiten, um 
Game-Killer zu aktivieren: 

l. Den Knopf an der Modulseite 
drücken: Alle Spritekollisionen wer- 
den damit ausgeschaltet. 

2. Knopf drücken und gleichzeitig 
Joystick nach oben: Lediglich die 
Spritekollisionen des Gegners sind 
ausgeschaltet. 
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3. Knopf drücken und gleichzeitig 
Joystick nach unten: Die Hinter- 
grund-Spritekollisionen sind desak- 
tıviert. 

4. Knopf und gleichzeitig Feuer- 
knopf drücken: Game-Killer ist aus- 
geschaltet. 

Zu den einzelnen Punkten: 

Das allgemeine Aktivieren des Mo- 
duls mittels des seitlichen Knopfes 
geschieht problemlos, die verspro- 
chene Wirkung tritt ein. Will der 
spielbesessene Anwender nun aber 
die zweite Möglichkeit benutzen, 
wie es die Beschreibung verspricht, 
so muß er feststellen, daß sich die 
Wirkung in keinster Weise von der 
ersten Schaltvariante unterscheidet. 
Davon, daß der Gegner zwar ge- 
troffen wird, der Spieler aber unver- 
letzt bleibt, ist leider nichts zu be- 
merken, denn beide erfreuen sich 
bester Gesundheit, egal wer wen be- 
schießt. Die Geschoße jedenfalls 
durchfliegen Gegner wie Spieler, 
als ob beide nicht vorhanden wären. 
Ebenso verhält es sich mit Variante 
3, auch hier ist kein Unterschied 
zur ersten Stufe zu bemerken. Zu 
Punkt 4 wäre zu sagen, daß es im 
Testverlauf kein einziges Mal miß- 


lang, Game-Killer wärend eines 
Spieles auszuschalten. 
Und nun zur Praxis: Wir ver- 


suchten Gamekiller an den ver- 
schiedensten Spielen, welche bei 
einem Spiele-Freak wohl zu finden 
sein werden. Hier wurden die unter- 
schiedlichsten Reaktionen im Spiel- 
verlauf erzeugt, Langeweile kam 
mit Sicherheit nicht auf. In „Impos- 
sible Mission‘ beispielsweise funk- 
tionierte das Modul erst, nachdem 
der Held einen Raum betrat. 
Aktivierten wir das Modul bereits, 
wenn die Spielfigur noch auf einem 
Gang stand, so stürzte diese einfach 
durch sämtliche Böden hindurch 
und ward nie mehr gesehen. Bei be- 
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stimmten Schießspielen konnten 
einem die gegnerischen Kugeln zwar 
nichts mehr anhaben, die eigenen 
Geschosse allerdings kratzten den 
„Feind“ genau so wenig. Natürlich 
ist es auch noch möglich, daß Ga- 
me-Killer bei einem bestimmten 
Spiel überhaupt nichts hilft, auch 
dies erlebten wir während des Test- 
verlaufs beispielsweise bei „Fast 
Fire“. Nun gibt es aber Spiele, die 
(um sie zu beenden) auf Sprite- 
Kollisionen angewiesen sind, bei- 
spielsweise Grazy Kong, wo zum 
Erreichen des nächsten Levels eine 
Figur gerettet werden muß, und 
dies wird eben durch eine Sprite- 
kollision, sprich Berührung, er- 
reicht. Daher ist es erforderlich, 
mitten im Spiel auf die oben be- 
schriebene Weise Gamekiller aus- 
zuschalten, um ins nächste Level 
zu gelangen, dies geschieht aller- 
dings, wie gesagt, problemlos. Mit 
der Allgemeinverträglichkeit des 
Moduls gab es ebenfalls keine Pro- 
bleme, jedwede Software vom Spiel 
über Textverarbeitungsprogramme 
bis hin zum Simons Basic blieben 
von der Anwesenheit Game-Killers 
im Modulschacht ungestört und 
funktionierten einwandfrei. So muß 
also festgestellt werden, daß dieses 
Modul trotz der etwas zu hoch ge- 
griffenen euphorischen Begleittexte 
doch eine ansehnliche Wirkung er- 
zeugt. 


Wer will nicht 
den besten Freund 
schlagen? 


Abgesehen von der Tatsache, 
daß einige Spiele weiterhin resistent 
gegen jede Art von äußerer Beein- 
flußung des Spielergebnisses sind, 
kann Game-Killer dem Kaufinteres- 
sierten trotzdem empfohlen wer- 
den, da der Verkaufspreis von 
69,—— DM sicherlich nicht zu hoch 
gegriffen ist. Eine Auskunft bleibt 
die Beschreibung allerdings schul- 
dig: Wozu das Modul eigentlich gut 
sein soll? 

Nützlich erscheint es höchstens 
für die Verkäufer von Computer- 
spielen, welche nun endlich vorfüh- 
ren können, was in ihren Produkten 
alles erreichbar ist. Oder aber 
für jene Spiele-Freaks, die endlich 
einmal den besten Freund schlagen 
wollen, welcher immer ein paar 
Punkte mehr erreicht. T. Seibt 
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REPORT 


COMMODORE 
GREIFT AN UND 
SCHLÄGT ZURÜCK 


Wir sind — und wir bleiben — Nummer 1. Sagte Commodore. Und will 
jetzt die anbrandende Konkurrenz das Fürchten lehren. Unter anderem 


mit einem neuen C64. 


„1986 haben wir die Weichen für 
den künftigen Erfolg gestell“. Mit 
diesen Worten trat Harald Speyer, 
Europa-Boß des amerikanischen 


Computerherstellers, auf einer Pres- 
sekonferenz während der Hannover- 
Messe CeBIT dem Krisengerede um 


den C 64 im Markt hatten“. Doch 
das habe sich inzwischen geändert. 
„Aller Wahrscheinlichkeit nach wer- 
den wir im Juni auch noch den in 
Braunschweig entwickelten PC auch 
in den Staaten anbieten“. 
Insgesamt hat Commodore laut 


tet Speyer „von unserem Medien- 
computer einen noch größeren Er- 
folg als in den USA (50 000 mal 
verkauft), vor allem im gehobenen 
Heim- und im professionellen Be- 
reich“. 

Inzwischen gab Nigel Shepher, 
General Manager von Commodore 
North America, eine starke Preis- 
reduzierung für den Amiga 1000 
bekannt. Um alle noch zögernden 
Interessenten in den USA zu 
ködern, wurde der Amiga um 
500,— Dollar auf 795,— Dollar ge- 
senkt. Legt man einen Wechsel- 
kurs von 2,60 DM zu Grunde, ko- 
stet der Amiga nun nur noch 
3354,— DM. Allerdings gilt dieses 
Angebot nur für ein Komplettsy- 
stem mit Farbmonitor 1080 
(495,— Dollar). Ob und wann 
uns dieser Preisnachlaß auch in 


Se] 


Immer noch der meistverkaufte Home-Computer aller Zeiten: C64. Allein zwei Millionen davon konnten 1985 abgesetzt werden. 


das Unternehmen entgegen. Das 
US-Management sei komplett ausge- 
wechselt, die Probleme mit den 
Banken seien ausgestanden und 
zwei marode Betriebe geschlossen 
worden. 

Die Schwierigkeiten in den USA 
seien entstanden, ‚„‚weil wir dort nur 
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Speyer seit 1977 über 10 Millionen 
Computer verkauft, davon eine Mil- 
lion PC, sechs Mio. GC 64 — 2 Mio. 
allein 1985 — und inzwischen be- 
reits fast eine halbe Million GC 128. 
Speyer: „Die erfolgreichste Markt- 
einführung aller Zeiten”. 

Vor allem in Deutschland erwar- 


Deutschland erreicht, war bis Re- 
daktionsschluß noch nicht ‘in 
Erfahrung zu bringen. Auf jeden 
Fall dürfte die Konkurrenz in die- 
ser Preis- und Leistungsklasse damit 
schwer ins Abseits gedrängt werden. 

Ein MS-DOS-Simulator (softwa- 
remäßig) und eine Btx-Box wurden 


für die nahe Zukunft (was immer 
das heißen mag) angekündigt. Ab- 


satzerwartungen für Commodores 
neues Prachtstück: ,„5000 bis 
Juni“. 

Auch bei der IBM-kompatiblen 


Serie PC 10/20 hat sich bei Com- 
modore einiges getan. 

Schon rein äußerlich haben sich 
die PC’s zu ihrem Vorteil verändert. 
Tastatur und CPU-Gehäuse wirken 
nun durch ihre abgerundeten Kan- 
ten futuristischer und gliedern sich 
damit rein optisch besser in die 
moderne Bürolandschaft ein. 

Im Innenleben wurden sie nun 
gleich auf der Hauptplatine (es gibt 
nur noch eine) auf die doppelte 
RAM-Speicherkapazität (512KB) 
aufgebohrt. Damit verbleibt dem 
Anwender noch eine stille Reser- 
ve von 128KB, bis er die Höchst- 
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Serienmäßig hat Commodore 
jetzt auch in alle Geräte Farbgrafik- 
karten eingebaut. 

Nicht unerwartet wurde der 
Preis, trotz mehr an Leistung, für 
alle Geräte weiter gesenkt. Koste- 
te der PC 10 bei seiner Einführung 
im vergangenen Jahr noch fast 
6000,— DM, steht er nun bei den 
Händlern nur noch mit 3995, ,— DM 
„incl. Mehrwertsteuer in der Liste. 

Dem PC 20 hat Commodore 
nicht nur einen doppelten RAM- 
Speicher spendiert, sondern liefert 
ihn auch gleich mit einer neuen 
20 Megabyte-Festplatte aus, zu ei- 
nem Preis der anfangs noch für 
seinen kleinen Bruder verlangt 
wurde. Es ist eigentlich zu er- 
warten, daß die Fehlerhäufigkeit 
im Festplattenbereich durch den 
inbau eines neuen Modells zu- 


Der Commodore-Hoffnungsträger Amiga. Bald für unter 35000 DM erhältlich? 


grenze erreicht hat. Ärgerlich ist 
nur, daß diese 128 KB, werden sie 
unbedingt benötigt, dann einen 
Steckplatz belegen. 

512KB sind aber auf jeden Fall 
ausreichend genug, um das Gros 
der Programme für die MS-DOS- 
Maschinen starten zu können. 


mindest stark eingeschränkt, wenn 
nicht sogar völlig ausgeschlossen 
1st. 

Neben der geänderten Form ist 
die neue Serie an der römischen 
Zwei hinter der Gerätebezeichnung 
(PC 10-11; PC 20-II) zu erkennen. 


Commodore sieht diese erweiterte 


und preisgünstigere Serie als klare 
Antwort auf die Diskontwelle aus 
Taiwan und Korea an. Vollkommen 
überraschend präsentierte Commo- 
dore auf der Ce-BIT in Hannover 
Da kriegen selbst 
die Taiwanesen feuchte 
Augen: Ein PC AT für 
unter 10000 Mark 
eine weitere kleine Sensation, 
einen IBM-AT kompatiblen Rech- 
ner für unter 10 000,— DM. Der 
Büromaschinenhersteller nannte 
ihn schlicht und einfach ‚‚Commo- 
dore AT“. Nicht der Name ist wich- 
tig, sondern die Leistung und in 
dieser Bezichung hat Big Blue einen 
weiteren harten Brocken zu schluk- 
ken, obwohl der Computerriese 
mittlerweile auch ganz schön an 
der Preisspirale gedreht hat. Das 
neue Flaggschiff besitzt selbstver- 
ständlich gleich serienmäßig einen 
640KM-Arbeitsspeicher, die bereits 
bekannte Grafikkarte, die ja auch 
eigentlich für dieses Gerät ent- 
wickelt wurde, eine 3,5“ Fest- 
platte mit 20 MB, fünf freie Steck- 
plätze, 14“ Monitor und paralel- 
les und serielles Interface. Op- 
tional kann Commodores neueste 
Errungenschafft noch um eine 
40MB-Festplatte erweitert werden. 


Im Sommer kommt 
ein neuer 64er. 
(Zumindest ein neues 
Gehäuse.) 

Um den 64er ist es im Augen- 
blick etwas still gewordne. Ange- 
sichts der Macht des Amigas muß- 
te er sich am Commodorestand in 
ein dunkles Eckchen zurückziehen. 
Die Konkurrenz im Homecompu- 
tersektor frohlockte schon, daß 
die Produktion und die Beliebt- 
heit des meistverkauften Home- 
computers der Welt ihrem Ende 
entgegen geht. Zwar noch unbe- 
stätigt, aber es wird noch in die- 
sem Sommer eine neue und ver- 
besserte Version die Kaufhäuser 
erobern. Die Gerüchteküche 
spricht hierbei von einer Version 


mit doppeltem Arbeitsspeicher 
(128KB), besserem Betriebssy- 
stem und einem anderen Basic- 
dialekt. 


Inwieweit sich die Gerüchte be- 
stätigen,werden bleibt vorerst noch 
abzuwarten. 
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LISTING 


Steuern Sie mit dem Joy- Rasantes Listing Rennen zu einfach er- Fahrbahnbreite selbst ge- 
stick in Port 1 Ihren scheinen, so können Sie stalten. 

Rennwagen über die das bestimmt nicht fal- mit insgesamt 729 (!) Langweilig dürfte es Ihnen 
schnellste Rennstrecke der len, denn erst die Übung Möglichkeiten den Schwie- also nicht so schnell wer- 
Welt. macht den Rennfahrer. rigkeitsgrad von der Ge- den, wie Ihr Auto über 
Doch so leicht wird Ihnen Und sollte Ihnen Ihr schwindigkeit bis zur die Strecke fegt. 
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VCUNIMDVDURE-WELI 2 — 


Maserati 


20 rem (p) commodore welt = 
30 rem SBesmmmmmmmmnnaoaaa>>==o=nnnn 


‚AD rem (c) by 


50 rem klaus dillinger = 


60 rem = 
70 rem 2 = 
80 rem c-64 + 1530/1541 = 
90 rem ==========2=2=== === === 202 02==== 


100 c1$=chr$( 149) :wh$=chr$(5) :c4$=c 
hr$( 17) :cy$=chr$( 159) 

110 p=54272:v=53248:pokev+32,0:poke 
v+33,0 

120 printc1$c4$c4$c4$tab( 8) wh$"gesc 
hwindigkeit ( 1-9)” 

130 geta$:ifa$=""then130 

140 ifasc(a$) <490orasc( a$) >57?then130 
150 printc4$c4$cA$tab( 8) "Fahrbahnbr 
eite ( 1-9)" 

160 getb$:ifb$=""then160 

170 ifasc(b$) <A9orasc(b$) >57then160 
180 printc4$c4$c4$tab( 8) "schwierigk 
eitsgrad( 1-9)” 

190 getc$:ifc$=""then190 

200 ifasc(c$) <A9orasc( c$) >57then190 
210 printcl$"wait a moment." 

220 ifs=Othenfort=0t062:reada:poke7 
0O4+t,a:s=s+ta:next:poke2040, 11 

230 ifs<>9558thenprint"fehler in sp 
rite-datas":end 

240 ifl=0thenfort=49152t:049395: read 
a:l=-l+a:poket,a:next 

250 if1<>32178thenprint"”fehler in m 
aschinenprogramm-datas"”:end 


260 a=10-val(a$) :b=val(b$) :c=vallc$ 


) :d=6+b:poke181,d:poke182,a 

270 poke183,c:pokev, 172:pokev+1,210 
280 printcy$c1$; :fort=1t0o24:printta 
b( 20-d/2) "*"tab( 20+d4/2) "*":next 

290 pokev+21, 
poke187,peek( 183) :poke 188, 20-d/2 
300 x=peek( v+31) :poke191,10:pokep+2 
4,15:pokep+5,100:pokep+6, 100:pokep+ 
4,33 

310 pokev+39,7:poke140, 10:sys49205 
320 pokep+4,0:pokep+5,0:pokep+6,0 
330 pokep+8,10:pokep+13,218:pokep+1 
1,129 

340 pokep+24,0:pokep+11, 
015:pokep+24,t:next 

350 pokev+21,0:printwh$c1$cA$c4$c4$ 
tab(S)"noch ein versuch( j/n)" 

360 getr$:ifr$<>" j"andr$<>"n"then36 
(8) 

370 ifr$="j"thengoto120 

380 rem datas 

390 data 


128: fort=1t 


1:poke185,2:poke186, 1: 


‚129,128,3,255,192,27,219, 


216,27,219,216,31,195, 248,31,255,24 
8, 27 

400 data255,216,27,255,216,3, 255,19 
2,3,255, 192,7, 153, 224, 119, 189, 238, 1 
19 

410 data165,238, 119,66 ‚238, 126,90, 1 
26, 126,126, 126, 119, 60, 238, 119, 129, 2 
38 

420 data15,255,240,31,227,248,63,19 
3,252 

430 rem datas maschinenprogramm 

a4a0 data162,24,160,7,132,140, 132,14 
2,160, 152, 132,139, 160,192, 132,141, 1 
60 

450 data0, 177,139, 145,141 ‚200, 192,3 
9,208,247,165, 139,56, 233 ‚a0, 176, 2,13 
98 

460 data140, 133, 139, 165,141 ‚96,233, 
40, 133,141, 176, 2, 198, 122, 202, 208, 22 
0, 96 

470 data32,231,192,32,82,192, 32,97, 
192,198, 191 ‚208, 243, 169, 5, 133, 191 3 
2,0 

480 data192,32,141,192,173,31 ‚208,2 
40,228,96, 160, 0, 162, 0, 232, 224 ‚40, 20 
8, 251 

490 data200, 196, 182,208,244,96, 198, 
185,240,1 ‚96, 169, 1; 133, 185, 173, 1 ‚22 
0, a1 

500 data4,208,10,206,0,208,208,5,16 
9,0,141,16,208,173,1,220,41,8,208, 1 
0,238 

510 data0,208,208,5,169,1,141,16,20 
8,96,160,39,169,32,153,0,4,136,208, 
250 

520 data198,187,208,25,165, 186,201, 
1,208,7,169,255, 133, 186,76, 172,192, 
169 

530 data1,133, 186,165, 162,41, 
‚183,133,187,165, 186,201 
0,188 

540 data165,186,201,255,208,2,198,1 
88, 165,188, 169,4,133,189,160,0,169, 
102 

550 data145, 188, 165, 181,168, 169, 102 
‚145,188,165,188,201,5,48,5,201,23, 
176 

560 data1,96,169,1,133,187,96,230,1 
39,165,139,41,7,105,3,141,1,212,96, 
Oo 

570 rem masarati ==============654 
580 rem 38911 bytes memory oe 
590 rem 02807 bytes program === 
600 rem 00126 bytes variables === 
610 rem 00000 bytes arrays === 
620 rem 00025 bytes strings >= 
630 rem 35953 bytes free (0) === 
640 rem =====================2==== 


15,101 
‚1,208,2,23 


SERVICE 


KEIN 


APRILSCHERZ! 


SOKB FÜR 
IHREN C 16/116! 


Mit dieser Schaltung, sie kostet — einschließlich Fremdarbeit — ganze 
100 Mark, haben Sie im C 16/116 plötzlich über 60 Kbytes im RAM! 
Wirklich. Sie können es aber auch selbst machen. 


60671 BYTES FREE! 
Wenn sich Ihr Compu- 
ter mit diesem Text mel- 
det, ist aus Ihrem C 16 
ein C 164 bzw. aus Ihrem 


C 116 ein C 1164 mit ins- 
gesamt 64 K RAM ge- 
worden, das heißt: mehr 

«freier Speicherplatz als 
der legendäre C 64!!! 
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Sie fragen sich, wie 
das möglich ist? Ich zeige 
es Ihnen, damit Sie die 
Änderung selbst durch- 
führen können. Doch 


u8 
Nux MLS2E7 


wenn Ihr Gerät noch in- 
nerhalb der Grantiezeit 
von 6 Monaten nach dem 
Kaufdatum liegt. Doch 
erst ein kurzer Überblick 


über den Schreib- Lese- 
speicher Ihres Compu- 
ters. 

Im Schaltbild sind die 
zwei Multiplexer (Um- 


Achtung! Bei Eingriffen 
in das Gerät erlischt die 
Garantiepflicht des Her- 
stellers. Dies ist jedoch 
nur dann von Bedeutung, 


schalter) SN74KS257 
(U7+U8) sowie die zwei 
DRAMs (dynamische 
RAMs) d.h. Schreib-, 
Lesespeicher TMS 4416- 
20 (U5 + U6) mit den 
8 Vorwiderständen RP3 
+ 4 zu sehen. Die DRAMs 
benötigen eine Stromver- 
sorgung an den Pins 9 + 
18 sowie Refreshsignale 
(zum Auffrischen der 
Speicherinhalte) an den 
Eingängen RAS und CAS 
Pin 15 + 16. Der Gateein- 
gang G ist fest an Masse 
und damit offen, die 
Steuerung des DRAMs - 
übernimmt der Write- 
Enable-Eingang WE an 
Pin 4. Der TMS 4416- 
20 ist aus der 4000er. 
Serie, die zweite Ziffer 
von links gibt die Bit-' 
breite (hier 4) an den An- 
schlüssen 2,3,15 und 17 
an, die 3. + 4. Ziffer von 


Schaltplan 


links die Speichertiefe 
von 16 K an. Die unteren 
4 Bit des vom Prozessor 
8501 benutzten .8 Bit- 
wortes DO-D3 (D= Da- 


TE 


SERVICE 


| 


tenbit) liegen an U5, die 
oberen 4 Bit D4-D7 lie- 
gen an U6. Die Zahl 
rechts vom ' Bindestrich 
gibt mit 10 multipliziert 
die Zugriffszeit (Ge- 
schwindigkeit) des DAMs 
in.ns (Nonosekunden) an. 
Setzen wir den Baustein 
des RAM-Bereiches von 
16 auf 64 Kin der 3. +4. 
Ziffer und eine Vergröße- 
rung der Geschwindigkeit 
von 25 % von 200 auf 
150 ns. Bereits für 16 K 
d.h. 16384 Speicherstel- 
len, benötigen wir min- 
destens 14 Adressleitun- 
gen (214), mehr als 
Adressanschlüsse vorhan- 
den sind. Um dieses Pro- 
blem zu lösen, sind die 
Multiplexer U7 + U8 vor- 
geschaltet, die mit dem 
Multiplexsignal MUX an 
Pin 1 zwischen den unte- 
ren Adressbits (A0-A7) 
und den oberen 8 Adress- 
bits (A8-Al5) umschal- 
ten. Da wir für 64 K d.h. 
65536 Speicherstellen 16 


Adressleitungen (216) 
benötigen, müssen die 
bisher unbenutzten 


MUX-Eingänge U7/2 und 
U8/14 von +5V getrennt 
und an die oberen beiden 
Adressbits Al4 und Al5 


gelegt werden. 

Nun zur Umbauanlei- 
tung: 

Nachdem die Boden- 


schrauben gelöst sind, 
läßt sich der Boden nach 
hinten verschieben und 
dann nach vorne heraus- 
klappen. Die Stecker für 
das Keyboard und das 
ON LED werden abge- 
zogen. Das Abschirm- 
blech wird durch Heraus- 
drehen der Schrauben ge- 
löst und abgenommen. 
Nun kann man die Com- 
puterplatine herausneh- 
men und nach einseiti- 
gem Aufbiegen der Blech- 
laschen auch die untere 
Abdeckung entfernen. 
Die DRAM U5 + U6 
werden nun am besten 
mit einem IC-Setzer ge- 
klammert, mit einem 
DIL-Entlöter erwärmt 


nn 


und vorsichtig herausge- 
zogen. Achtung, einige 
Beinchen können umge- 
bogen sein und haken. 
Sind diese Spezialwerk- 
zeuge nicht vorhanden, 
können die Beinchen der 


ICs auch an den IC-Kör- 


pern mit einem sehr 
spitzen Elektronik- 
Schneider abgeschnitten, 
die IC entfernt und die 
einzelnen Beinchen mit 
einer Pinzette und einem 
Lötkolben aus der Lei- 
terplatte ausgelötet wer- 
den. Die Löcher sind mit- 


tels eines Lotsaugers 
oder Lotsauglitze von 
Zinnresten freizulegen. 


Jedoch wiederum Ach- 
tung! Die ICs sitzen in 


durchkontaktierten Lö- 
chern in einem Layout in 
Feinleitertechnik. Die 


Beinchen gehen schwer 
heraus, die dünnen Lei- 
terbahnen reißen schnell 
ab. Dies wäre dann der 
Anfang vom Ende Ihres 
Computers. **Schicken 
Sie mir bitte nicht solche 
Krüppel!** Haben Sie bis 
hierher alles richtig ge- 
macht, setzen Sie die 
neuen ICs TMS 4464- 
15 ein und verlöten Sie 
die Lötstellen. Zum Lö- 
ten sollte ein Trenntrafo- 
lötkolben Verwendung 
finden, die ICs dürfen 
nicht überhitzt werden. 
Jetzt müssen die +5V- 
Verbindungen zu U7/2 


und U8/14 aufgetrennt‘ 


werden. Die Leiterbahn 
zu U8/14 läßt sich leicht 
auf der Unterseite auf- 
trennen, die Leiterbahn 
zu U7/2 verläuft unter 
dem IC und es wäre un- 
sinnig, hierfür das IC aus- 
zubauen. Man kneift mit 
einem spitzen Elektronik- 
Schneider einfach das 
Beinchen kurz über der 
Lötstelle ab und biegt es 
hoch. Jetzt braucht man 
nur noch die Verbindun- 
gen Al4 an Ul/37 zu AO 
an U7/2 sowie Al5 an 
U1/36 zu A3 an U8/14 
mit einem dünnen Draht, 
am besten von Beinchen 


zu Beinchen auf der LPL 
„Oberseite, hergestellt 
werden. Der so umgebau- 
te Computer sollte, in 
umgekehrter Reihenfolge 
zusammengebaut, jetzt 
die eingangs erwähnte 


. Meldung „60671 Bytes 


FREE“ zeigen. Tut er 
dies — meinen Glück- 


wunsch!!! 
Es sei jedoch darauf 
hingewiesen, daß auch 


versierte Fachleute beim 
Auslöten von ICs aus 
durchkontaktierten Lö- 
chern beim Layout in 
Feinleitertechnik ihre 
Probleme haben. Ich wür- 
de Ihnen raten, fall Sie 
sich nicht absolut sicher 
sind den Umbau pro- 
blemlos durchzuführen, 
mir Ihren Computer in 
guter Verpackung, ohne 
Zubehör, zum Umbau zu- 


Info Plus/4:  C-128 
Color in BASIC 3.5 
BASIC 7.0 


In der BASIC-Version 
3.5 


COLOR: Farbquelle, 
Farbcode, Farbhelligkeit 
Farbquelle: 


0 Bildschirm Hinter- 
grund 40 Zeichen, 1 Bild- 
schirm Vordergrund, 2 
Grafischer Mehrfarben- 
modus 1, 3 Grafischer 
Mehrfarbenmodus 2, 4 
Bildschirm Rand, 5 nicht 
belegt, 6 nicht belegt. 
Farbcode: 

l Schwarz, 2 Weiß, 3 
Rot, 4 Cyan, 5 Purpur, 
6 Dunkelgrün, 7 Blau, 
8 Gelb, 9 Orange, 10 
Braun, 11 Gelbgrün, 12 
Rosa, 13 Balugrün, 14 
Hellblau, 15 Dunkel- 
blau, 16 Hellgrün. 


In. der BASIC-Version 
7.0: 


HATTEN SIE 
ES GEWUSST ? 


zusenden. Ich baue Ihnen 
Ihren Computer inner- 
halb einer Woche für 
97,80 DM incl. aller Ko- 
sten für Material, Einbau, 
MWSt. und Rückporto 
um. Senden Sie mir Ihren 
Computer mit 100,00 
DM per Vorkasse (die 
restlichen 2,20 DM muß 
ich der Post geben, wenn 
Ihr Paket ankommt) in 
bar, per Scheck oder 
auf eines meiner Konten 
bei der Kreissparkasse 
Segeberg, BLZ 23051030 
Konto 557064 bzw. Post- 
scheckamt Hamburg, 
BLZ 20010020, Konto 
57494-205, unter Angabe 
von Namen und Adresse. 
Meine Adresse lautet: 
Elektronik-Technik,Tan- 

nenweg 9, 2351 Trappen- 
kamp. 


Viel Spaß Euer upe 


COLOR: Farbquelle, 


: Farbcode. 


Farbquelle: 

0 Bildschirm Hintergrund 
40 Zeichen, 1 Grafischer 
Vordergrund, 2 Grafi- 
scher Mehrfarbenmodus 
1, 3 Grafischer Mehrfar- 
benmodus 2, 4 Bild- 
schrm Rand, 5 Text- 
farbe, 6 Bildschirm Hin- 
tergrund 80 Zeichen. 
Farbcode: 

l Schwarz, 2 Weiß, 3 
Rot, .4 Cyan 1/40Z 
5 Purpur 1/40Z, 6 Dun- 
kelgrün, 7 Blau, 8 Gelb, 
9 Hellbraun (Pupur 2/ 
80Z, 10 Braun, 11 Rosa, 
12 Dunkelgrau (Cyan 2/ 
80Z, 30 Mittelgrau, 14 
Hellgrün, 15 Hellblau, 
16 Hellgrau. 
Helligkeit/Luminance 

0 = dunkel, 7 = hell. 
Jede Farbe ist auch 
noch in ihrer Helligkeit 
[Luminance (außer 
Schwarz) veränderbar. 
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mul 
au) 
>) 
=) 
ai 
> 


Die deutsche 
<Computer- 


illustrierte 
DM 9,80/ÖS 80 ISFR 9,80 


IM TEST: 


Panasonic 
Portabel 


Neue 
Software 
Philips 8230- 
MSX I 


Fremd- 
Tastaturen 


REPORT: 
Bits statt 
Beethoven - 
die CD+ 
Video: 
rekorder 
als Speicher 


MARKT 


ÜBERSICHT: 
Alle 
wichtigen PC 


auf einen Blick 


SERVICE 


IF VOU 


FREAK 


THEN GOTO_ 


DOWN 


Sind Sie ein Computerfreak? Ein richtiger? Sie wissen es nicht? Kreuzen 
Sie doch einfach unseren Fragebogen an, wir geben Ihnen dann die Ant- 
wort, haften aber nicht für Folgeschäden! 


Ein Test für alle, die ausser PIEP, 
ZONG und RUMS auch noch „Ein- 
mal die COMMODORE WELT bit- 
te‘ sagen können. 
Gebrauchsanleitung: 

Take Stift. 

For Frage = 1 to alle Fragen 
Beantworte Frage durch Ankreuzen 
von vorgegebener Antwort 

Next Frage 

For Punkte = 1 to alle Punkte 
Gesamtpunktzahl = Gesamtpunkt- 
zahl + jeweilige Punkte 

Next Punkte 

Look on Seite 63 

If Punktzahl = 1. Spalte Then Read 
1. Spalte; goto ende 

If Punktzahl = 2. Spalte Then Read 
2. Spalte; goto ende 

Read 3. Spalte 

ende 


Übersetzt und somit auch für ‚„nor- 
male“ Bürger verständlich lautet das 
ganze folgendermaßen: 

Gleich nach dieser Gebrauchsanlei- 
tung werden Sie mehrere Fragen 
finden, die Sie nach bestem Wis- 
sen und Gewissen beantworten 
sollten. 

Um Ihnen Ihre Antwort zu erleich- 
tern, sind Ihnen schon ein paar 
Antworten vorgegeben; bitte kreu- 
zen Sie die Antwortmöglichkeit an, 
die bei der jeweiligen Frage auf 
Sie am ehesten zutrifft. Selbst- 
verständlich sollten Sie sich vor- 
her einen FUNKTIONSTÜCHTI- 
GEN Stift geholt haben, um Ihre 
jeweilige Antwort anzukreuzen. Am 
Ende des Testes zählen Sie die 
Punkte, die hinter jedem von Ihnen 
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gemachten Kreuz stehen, zusam- 
men und schauen auf Seite 63 
nach, was für ein Ergebnis der Test 
für Sie bereithält. 


Fragen: 


1.) 

Haben Sie während Ihrer Arbeits- 
zeit fernab der heimischen Compu- 
teranlage des öfteren Ausbrüche von 
Angstzuständen, weil Sie befürch- 
ten, daß Ihrem Gerät etwas zuge- 
stossen sein könnte? 


a) Ja, immer 5P. 
b) selten 1P. 
c) nie OP. 
2.) 


Ihr Haus brennt lichterloh. 

Frau, Kind und Computer sind von 
den Flammen eingeschlossen. Was 
tun Sie? 


a) Ich stürme in das Haus 
und rette Frau und Kind OP. 

b) Ich stürme in das Haus 
und rette meinen Com- 
puter 4P. 

c) Ich gehe in den nächsten 
Computerladen und suche 
mir einen noch größeren 
Computer aus, den ich mit 
dem Geld von der Versiche- 
rung bezahlen kann. 

3.) 

Stromausfall! 

In Ihrem Stadtviertel wird eine 

Nacht lang der Strom abgeschaltet. 

Nach wie vielen Stunden bekom- 

men Sie „Computerentzugserschei- 

nungen‘? 


5P. 


SERVICE 


a) Ich bleibe cool und warte 
ruhig bis zum nächsten 
Tag ab OP. 

b)Spätestens nach zwei Stun- 

den ohne Computer nach 
dem Feierabend bin ich mit 
den Nerven völlig runter ER, 

c) Allein schon durch den 
Gedanken daran bin ich 
kreidebleich geworden und 
brauche erst mal eine Schach- 
tel Zigaretten, bevor ich 
mein Kreuz machen kann 3P. 

d) Ich habe für solche Fälle 
vorgesorgt und brauche 
nur noch mein Notstrom- 


aggregat anzuschalten 5P. 


4.) 
Ihr Computer wird von gewissen- 


losen Kriminellen entführt. Als 
Lösegeld fordern die Entführer den 
halben Neuwert des Computers. 
Was tun Sie? 


a) Ich zahle zähneknirschend 


das Lösegeld 3P. 


b) Ich informiere die Polizei, 
die GSG 9, die Bundes- 
wehr und die Nato-Streit- 
kräfte über den vorliegen- 


den Sachverhalt 4P. 


c) ich kaufe mir endlich 
einen größeren Com- 


puter BB; 


5. 

a Frau hat versucht, den 
Computer mit einem nassen Lap- 
pen sauber zu machen, was zu 
einer absoluten Vernichtung des- 


selben geführt hat. Wie reagieren 
Sie? 


a) Ich beherrsche mich und 
streiche meiner Frau nur 
das Geld für Privataus- 
gaben in den nächsten 


10 Jahren OP. 


b)Ich stelle meine Frau 
wegen fahrlässiger Tö- 
tung vor Gericht und 
lasse mich von ihr schei- 
den 4+F. 
c) Im Affekt hole ich 
meinen schweren Re- 
volver aus meiner Ar- 
meezeit und strecke 
meine Alte damit nie- 


der SP. 


6.) 

Dritter Weltkrieg!!! 

Die Russen nahen und wol- 
len sowohl Ihre Frau als auch 
Ihre EDV-Anlage entführen. Was 
machen Sie? 


a) Ich rette mich mit meiner 
Familie OHNE Compu- 
ter in unseren Atom- 
schutzbunker OP. 

b) Ich lade mein Lieblings- 
programm in den Com- 
puter ein, um die letz- 
ten Minuten meines 
Lebens auszukosten 2.P; 

c) Ich schnappe mir mei- 
nen Computer und 
schieße mir den Weg 
zum Atomschutzbun- 
ker gnadenlos frei 3FP: 

d) Ich habe diese Situ- 
ation vorausgesehen 
und brauche nur noch 
mein Anti-Missile-De- 
fenseprogramm einzu- 
laden, das meine in 
mühevoller Heimarbeit 
hergestellten Abwehr- 
geschütze aktiviert. 

Den Rest erledigt 


mein Computer 5P. 
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TIPS & TRICKS | 


GANZ 


PROFESSIONELL: 
60 ZEICHEN 


AUF 


DEM MONITOR 


Für viele Anwendungen sind die 
40 Zeichen pro Zeile des C64 nicht 
genug. Deshalb gibt es 80-Zeichen- 
Karten, die hardwaremäßig 80 Zei- 
chen auf dem Bildschirm darstellen. 
Das ist jedoch ziemlich teuer. Fer- 
ner gibt es noch 80 Zeichen soft- 
waremäßig. Dieses Verfahren funk- 
tioniert so: Die Zeichen werden in 
eine HIRES-Graphik-Seite einge- 
zeichnet. Dabei stehen jedoch nur 
40*8=320 Punkte in der Horizon- 
talen zur Verfügung und somit für 
jedes Zeichen nur 4 Bit. Als Zwi- 
schenraum wird davon noch eines 
gebraucht — da waren’s nur noch 
drei. Versuchen Sie mal ein drei Bit 
breites M zu malen. Hier sieht man 
schon einen Nachteil dieser Metho- 
de. Der zweite ist der große Spei- 
cherplatzbedarf eines HIRES-Bildes 
von 8 KByte. 

Für viele Zwecke wäre man je- 
doch auch schon mit 60 Zeichen in 
einer Zeile zufrieden. Einen Brief 
schreibt man zum Beispiel meist 
mit 60 Zeichen. Auch eine Anlei- 
tung für ein Programm kann mit 
60 Zeichen je Zeile mehr Text auf 
einer Seite unterbringen. 

Wie aber soll man 60 Zeichen auf 
eine Zeile bringen, ohne einen 
HIRES-Graphik-Bildschirm zu ver- 
wenden? Nun, man nimmt zwei 
Bildschirme und arbeitet mit einem 
besonderen Zeichensatz (4—5 Bit 
breit). Dies sei an einem Beispiel ge- 


zeigt: 


1254567812345678 
Ba _ ia _ ck _ 
K__KR_KLÜFKLUK_L 
K__R_KLKKLKL 
Ba __ RK _ 
K__K__FL_L_F ELCH 
ESS: GEINDER: SARE: EE SOHHRr FEN 
K__R_CKLKKLÜKL 
*__+__KKK__K_ 


40 Zeichen pro Zeile sind nicht ge- 
nug — hier sind 60 Zeichen soft- 
waremäßig. 


Tippen Sie das Programm doch 
einmal ab und ersetzen die Zeile 85 
durch: 85 for i=i to b:poke sti, 
(speek (i+53248+2*b) and 60)*4: 
next 86 fori=1 to b: poke stitb, 
(peek(it53248+2*b) and 60) /2: 
next 
Die Zeilen 290-740 können Sie da- 
zu zunächst einmal weglassen. 

Der C64 hat zwei Zeichensätze 
gespeichert (im ROM ab 53248) 
und zwar den Groß-/Graphik- und 
den Klein-/Groß-Zeichensatz. Zu- 
sammen mit den entsprechenden 
reversen Zeichen ergibt das 4 KByte. 
Der Bildschirmcode eines reversen 
Zeichens unterscheidet sich von ei- 
nem normalen dadurch, daß das 7. 
hoch 7 = 128). Das Programm er- 
zeugt nun einen normalen Zeichen- 
satz mit 4 Bit breiten Zeichen (‚and 
60°), welcher um 2 Bit nach links 
verschoben ist (,*4‘) und anstelle 
des reversen Zeichensatzes das glei- 
che um 2 Bit nach rechts verschoben 
(,/2°). Dadurch entsteht zwischen 
einem normalen ‚A‘ und einesm re- 
versen ‚A* ein Zwischenraum von 7 
Bit, genug Platz für ein 3. Zeichen 
(hier das ‚B‘). Dieses wird in den 
zweiten Bildschirm gepoket und 
zwischen beiden Bildschirmen wird 
50 mal pro Sekunde umgeschaltet, 
wobei der zweite Bildschirm um 
6 Bit nach rechts verschoben ist. 


Zwei Bildschirme im 
Interlace-Verfahren 
Ein normales Fernsehbild besteht 
aus zwei Halbbilder (1., 3., 5 ... Zei- 


le bzw. 2., 4., 6 ... Zeile), die nach- 
einander abgebildet werden (Inter- 


laceverfahren). Commodore arbei- 


tet mit zwei gleichen Halbbildern, 
50 mal je Sekunde. Das Maschinen- 
programm (SYS51236) schaltet 
nun zwischen diesen beiden Halb- ' 
bildern jeweils auf den anderen 
Bildschirm um, so daß jeder 25 mal 
pro Sekunde abgebildet wird. Leider 
ist das Programm anscheinend noch 
nicht schnell genug, so daß ein 
Flimmern zu sehen ist. Es wird 
noch daran gearbeitet, dieses Flim- 
mern zu verhindern. Wenn einem 
der Leser ein besseres Umschalt- 
programm gelingt, soll er schreiben. 


Das Programm 
kann noch mehr 


Der Ablauf des Programms isr 
aus den REM-Zeilen zu ersehen. 
Hier noch ein paar Tips, wie Sie das 
Maschinenprogramm für andere 
Zwecke verwenden können: i 
SYS 51200 kopiert den 
Originalzeichensatz vom ROM ins 
RAM und verschiebt dann einen 2 
KByte großen (zuvor erzeugten) 
Zeichensatz, der bei 8192 beginnt, 
in das RAM unter dem ROM ab 
53248. Der Groß/Klein-Zeichensatz 
bleibt erhalten. Man kann also mit 
SHIFT/C= zwischen zwei Zeichen- 
sätzen hin- und herschalten. Will 
man nur den Originalzeichensatz, so 
kann man das Verschieben des neu- 
en (der dann natürlich auch nicht 
da sein muß) mit POKE51234,232 
unterbinden. Nun hat man zwei 
Bildschirme, mit denen man arbei- 
ten kann. Wie man sie einschaltet, 
ist aus den Zeilen 110 und 115 zu 
erkennen. Zum normalen Zustand 
kommt man mit: 
POKE56576,151:POKE53272,21: 
POKE648,4 


40147 Bytes free! 


Solange man mit den oberen 
Bildschirmen (ab 49152bzw. 50176) 
arbeitet, kann man den für Basic 
nutzbaren Speicher vergrößern. Ar- 
beitet man mit Diskette, kann man 
den Basic-nutzbaren Speicher ver- 
größern. Arbeitet man mit Dis- 
kette, kann man den Basicanfang 
auf 820 verlegen: POKE820,0: 
POKE43,53:POKE44,3 
Jetzt hat man 1228 Byte mehr 
Speicher. Mit Datasette kann der 
Baiscanfang auf 1024 verlegt wer- 
den: POKE1024,0:Poke44,4 


PP] | | ——eeeeeee-—_—_—————_————_„_”—_”_«_>_2”2ä«ä6eeeeeeeeeeeeee Ts 


Sechzi9g9 Zeichen 


id rem &ß-zeichen-programm ==mmanz 


15 rem (p) ceommodore welt = 
28 rem Seazzmzumzuz2Sgmmszunzmmmmmm 
25 rem (c) r. schmid-fabian = 
sd rem 2-64 = 


35 ein mm mem mn mn mn mm mE CE Eu HE Gm Em IE EB BE mE ER ER U EEE EIN 


48 poke46, 5%: poke48, S@:cirici#=echr# 
(147) 

45 poke53289,2: poke33281,9:poked46, 
3irem hintergrund schwarz zeichenfa 
rbe cyn 

5% printcel®tab(12) "Neuer Zeichensat 
zu" 

55 fori=ßto235: pokeil4d24ri,i:next 

6@ rem %% maschinenprogramm KHtt%** 
65 =512989:tor i=dto299:readx:pokes 
+l,xinext 

78 rem %%% zeichensatz erstellen %** 
75 r=56334:5=8192:b=1924 

8% poke33272, 24: poker ,2:pokei,3i 

85 5=86192:b=1824: for 
i=sdto?727:ireadx:pokes+ti,x:pokes+i+b, 
x/B8:next 

98% s=B192:fori=1288t01288: pokest+ti,i 
29: next: pokes+1289, 255: pokes+1287,2 
33 

95 pokei,?:poker,i 

IAR fori=itoSßRRdiınext 

185 rem %%* bildschirme loeschen %*%% 
118 poke364576, 196: poke33272,5: pokes 
48,192:print c1ls u 

115 pokeS56376, 196: poke33272,21:poke 
648,196: print cls 

129 sysS128@:rem neuer zeichensatz 
nach de@@ (53248) 

125 sys351234:rem bildschirmswitch 
13% rem text in bildschirme poken * 
133 DEN ee 


148 bi=49152:b2=581?6:rem startadre 
sse der bildschirme 

145 rem ascii in bildschirmcode *%* 
158 def fnfla)=a-161-33%(a(255) -64% 
(a<192) -3241a< 160) +32 aC96) -Sdr la 
64) 

155 read as:if aß="stop" then pokei 
98,2:waiti198,1:end 

160 it am" 

then bi=b1+48:bZ=eb2+48:goto 155 

165 aßmlefts( (as+bs) , HR) 

178 tor iImitoddstep3 

175 a=asc (mids(as, i,i)):pokebi,fnf( 
a):ibi=bi+i 

189 a=asc (mids(as, i+i1,1)):pokeb2,fn 
f(a):b2=b2+2 

185 a=asc (mids(as, i+r2,1)): if a<>)32 


then pokebi,fnf(a)+128:bil=bi+i 

19@ if a=32 then pokebi,fnf(a):bi=b 
i+1 

195 next 

228 goto153 

225 rem %%* maschinenprogramm *%% 
218 datal22,169,9,132,3,169, 288,133 
‚9,162,16,169,51,133,1,177,3,72,169 
‚98,133 

215 data1,194,145,3, 299,298, 239,238 
‚4, 202,288,234,76, 205,200, 129,169, 1 
22,141 

229 data20,3,169,2898,141,21,3,162,1 
99,168,76,173,14,2298,41,254,9,144,1 
41,14 

225 data220,142,4,220,149,5,228,173 
‚19,229,9,1,168,173,18,208,234,234, 
16,249 

230 datai?3,17,288,16,244,199,14,22 
08,169,192,141,136,2,173,8,221,91,25 
2,1491 

235 data, 221,173,24,288,41,15,141, 
24,288,173,1,221,9,3,141,1,221,88,9 
6,8,173 

248 datal36,2,73,4,141,136,2,173,22 
‚288,73,6,191,22,298,173,24,2808,73, 
16,141 

245 data24,208,173,141,2,281,9,288, 
6,1653, 203, 281,63,248,3,76,49, 234,16 
9,49 

259 data1l41,28,3,169,234,191,21,3,1 
73,22,288,41,248,141,22,208,173,24, 
2988,91 

255 datalS,9,16,141,24,288,169,4,14 
1,196,2,173,8,221,9,3,141,8,221,76, 
49,234 

262 data0,169,20,160,32,133,95,132,9 
6,169,0,160,40,133,99,132,91,169,8, 
160,216 

265 datai33,88,132,89,32,2499, 209,16 


 9,55,133,1,88,96,0,0,56, 165,90, 229, 


95,133 

272 data34,168,163,91,229,96,170,23 
2,152,249,35,165, 99,56, 229,34,133,9 
2,176 

275 data3,198,91,56,165,88,229,34,1 
33,88,176,8,198,89,144,4,177,98,145 
‚88,136 

289 data208,249,177,99,145,88,198,9 
1,198,89,282, 298, 242,96 

2685 remt%%%* zeichensatz ARHHHHHHRR 
298 data96,144,144,176,176,128,96,8 
295 data9,2,2409,16,240,144,248,8 
229 data®,128,128,248,144,144,248,8 
325 datad,9,96,128,128,128,96,%8 

319 data®,16,16,248,144,144, 248,8 
315 data2,2,249,144,248,128,248,% 
322 data2,112,64,224,64,64,64,2 
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Sechzi19 Zeichen 


dataQ,2,96,144,144,112,16,224 
data®,128,128,249, 144,144, 144,0 
datad,32,2,96,32,32,112,8 
dataQ,16,0,16,16,16,16,224 
datad,64,64,80,96,898,72,8 
data®,94,32,32,32,32,112,® 


'data2,2,128,249,176,298,176,% 


datad,2,162,82,80,80,80,% 
data@,0,96,144,144,144,96,8 
dataQd,0,240,144, 144,248, 128,128 
data®,0,249,144,144,248,16,16 
dataQ,2,176,64,694,64,64,8 
data@,2,112,128,96,16,224,8 
data9,44,224,64,64,64,96,0 
data@,0,144,144,144,144,248,0 
dataQ,2,144,144,144,96,96,8 
data@,®,144, 144, 249,208, 176,8 
data®,0,144,96,96,144,144,8 
dataQ,0,144,144,144,112,16,224 
datad,0,240,48,96,192,249,9 
data1ll2,64,64,64,64,64, 112,8 
data32,80,644,249, 96,208, 249,0 
data1ll2,16,16,16,16,16,112,8 
data@, 32,80,248,32,32,32,32 
datad,2,64,248,248,64,8,8 
data@,2,0,0,0,2,8,0 
data64,64,64,64,0,2,64,0 
dataad, 50,80,0,0,2,2,2 
data80,00,248,80,248,80,80,8 
data32,112,192,112,24,112,32,® 
data144,144,32,32,64,144,144,8 
data96,144,144,96,176,152,1904,0 
data32,44,128,2,0,0,2,8 
data32,64,128,128,128,64,32,8 
data64,32,16,16,16,32,64,® 
datad, 144,96,240,96,144,2,0 
dataQ, 32,32,248,32,32,0,2 
data0,2,2,0,08,32,32,64 
datad,2,2,112,0,0,8,% 
datad,0,0,0,0,96,96,8 
datad,16,32,32,64,64,128,8 
data96, 144,176, 208,208, 144,96,8 
data32,96,140,32,32,32, 112,8 
data249,144,16,32,64, 128, 248,8 
data2490,144,16,112,16,144, 248,0 
data1l6,48,890,144,248,16,16,8 
data240, 128,249, 16,16,144,248,8 
data240,144, 128,248, 144,144, 248 


data240,144,32,64,64,64,64,8 
data96,144,144,96,144,144,96,0 
data96,144,144,249,16,144,96,0 
data®,90,96,2,98,96,0,8 
data0,0,32,0,0,32,32,64 
data16,32,64,128,64,32,16,0 
dataQ,2,240,0,249,2,0,2 
data1l28,64,32,16,32,64, 128,8 
data96, 144,48,64,64,2,64,0 


619 datad,0,0,242,248,0,8,8 
615 
data96,144,144,249, 144,144, 144,8 


622 data224,144,144,249,144,144,224 
is datali2,144,128,128,128,144,112 
in data224,144,144,144,194,144, 224 
= data249,128,128,249,128, 128,248 
ide data249,128,128,249,128,128,128 
ugs data248,144,128,176,144,144,248° 
iss data1i44,144,144, 249, 194,144, 144 
ja dataiil2,32,32,32,32,32,112,8 
6648 data240,32,32,32,32,160,64,% 
665 dataig5,160,192,192,168,176,144 
datai28,128,128,128,128,128,248° 
ie datal44,249,248,1944,194,1494,144 
er data144,208, 208, 176,176, 144,144 
= data96,144,144,144,1944,144,96,% 
698 data249,144,145,248,128,128,128 
ios 


data249,144,144,144,144,2409,24,8 

728 data242,144,144,24909,169,144,144 
1] 

® 

795 

data249,194,128,248,16,144,248,%8 

718 data248,32,32,32,32,32,32,% 

715 datai44,194,144,144,144,1494,248 
1] 

U 

728 

datai44,1944,144,144,144,248,96,% 

725 datai944,194,144,144,249,248,194 
1] 

L 

739 data1i94,1944,96,96,144,144,144,8 

735 datai44,144,144,249,96,96, 96,8 

748 data249,16,32,64,128,128,248,8 

745 rem KRAKK taxt KERRKRRKRRRIRH 

758 data"123454789201234567890123456 

789912345678901234536789091234536789%" 

755 data" " R 

768 data"......Dies ist ein 42-Zeic 
hen-Testprogramm." 

765 data " " . 

778 data"......Bitte stellen Sie de 
n Kontrast und die Helligkeit" 

775 data”"......noch etwas ein. Dann 
+limmert es weniger." " 
788 data" " 


sechzi9 Zeichen 


785 data"......Ich 
hoffe, es gefaellt 
7998 data" " 


Ihnen. " 


795 data”......Wenn Sie jetzt eine 


Taste druecken, 
898 data"......mit 


koennen Sie" 


dem veraenderten 


Zeichensatz schreiben." 


805 data",......Mit 


SHIFT/C= 


erhalten Sie den normalen" 


818 data"......„.Zzeichensatz. 


Mit CTR 


L/STOP kommen Sie wieder" 
813 data”’......Zzum normalen Bildsch 
irm und Zeichensatz.” 


828 data" " 
825 data 


Nora neue nene nee ren» Rudolf Sch 


mid-Fabian" 
839 data"stop" 


IM TEST FÜR DEN VC 20 
DAS SUPERTOOL 


MIT NEUEN 
BASIC- 


BEFEHLEN! 


Mit dem VC-SUPERTOOL 
hat man eines der leistungs- 
fähigsten ‘Werkzeuge’ zur 
Programmentwicklung 

mit dem Commodore 
VC-20, der in der Grund- 
version nur mit dem 
BASIC 2.0 ausgestattet 

ist, zur Verfügung. Die 
zusätzlichen Basic-Befeh- 
le stehen nach dem Ein- 
stecken des Moduls und 
Einschalten des Commo- 
dore VC-20 sofort bereit, 


oder auch nach Laden 
des Programms von Cas- 
sette oder Diskette in 
den A000-Bereich eines 
RAM-Erweiterungsmoduls. 
Zu beachten ist aber, daß 
alle VC-20 Module, die 
den selben Speicherplatz- 
bereich belegen, sich ge- 
genseitig ausschließen, 
oder die Module können 
beschädigt werden. 

Wenn Sie eine Steck- 
platzerweiterung benut- 


zen, müssen z.B. Spiel- 
module, die in diesem 
Bereich arbeiten, heraus- 
gezogen oder abgeschal- 
tet werden. 

Die Zusatzbefehle werden 
in vier Gruppen unter- 
teilt: 
(A) 
(B) 


(O) 
(D) 


Programmierhilfen 
Schnelle Kassetten- 
operationen 
Druckerausgabe über 
USER-Port 
Strichcode-Leser 


Alle Befehle können auch 
in der vom Computer er- 
laubten Kurzform einge- 
tippt werden. Es wird da- 
zu der erste Buchstabe 
normal und der zweite 
geshiftet eingegeben. Bei 
der Eingabe von ‘LIST* er- 
scheinen die Befehle dann 
wieder in voller Länge. 
Bei manchem Befehl müs- 
sen die Parameter nicht 
unbedingt eingegeben 
werden. VC-Supertool 
setzt dafür sinnvolle Werte 
selbständig ein. 


(A) PROGRAMMIER- 
HILFEN: 


AUTO sorgt für automa- 
tische Zeilennumerierung, 
mit variabler Startnum- 
mer und Schrittweite. 
AUTO120,5 beginnt mit 
Zeilen-Nr. 120 und fährt 
in Ser Schritten fort 
AUTO 1000 beginnt mit 
Zeilen-Nr. 1000 und fährt 
in 10er Schritten fort 
AUTO beginnt mit Zei- 
len-Nr. 100 und fährt in 
10er Schritten fort. 

Wenn Sie während des 
Programmierens Zeilen- 
nummern überspringen 
wollen, überschreiben Sie 
die automatisch erzeugte 
Zeilennummer mit der 
gewünschten Zeilennum- 
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| TEST | 


mer. Die vorher gewählte 
Schrittweite wird dann 
von dieser neuen Zeilen- 


nummer ab weitergeführt. 


AUTO wird wieder ausge- 
schaltet, wenn nach der 
zuletzt erzeugten Zeilen- 
nummer RETURN ge- 
drückt wird. 

RENUM numeriert alle 
Zeilen eines im Speicher 
stehenden BASIC-Pro- 
gramms neu. 
RENUMS5;2 beginnt mit 
Zeilennummer 5 und 
fährt in 2er Schritten 


fort 

RENUMSO beginnt mit 
Zeilennummer 50 und 
fährt in 10er Schritten 
fort 

RENUM beginnt mit Zei- 
lennummer 100 und 
fährt in 10er Schritten 
fort. 

RENUM berechnet alle 
Bezüge (GOTO/GOSUB/ 
LIST/RUN) innerhalb 
des Programms auf andere 
Zeilennummern nach. 
Wenn eine Zeilennummer, 
auf die gesprungen wer- 
den soll, nicht vorhanden 
ist (fehlt im Programm), 
so setzt RENUM dafür 
die Zeilennummer 63999 
ein und macht so auf den 
Fehler aufmerksam. Wür- 
den beim Umnumerieren 
Zeilennummern über 
63999 entstehen wird 

‘? OVERFLOW ERROR‘ 
gemeldet und RENUM 
wird nicht ausgeführt. 


DEL (DELETE) löscht 
mehrere Zeilen gleichzei- 
tig im Programm. 

DEL 160-225 löscht alle 
Zeilen von 160 bis ein- 
schließlich 225 

DEL180- löscht das ge- 
ne Programm ab Zeile 
DEL -126 löscht alle Zei- 
len bis 126 einschließlich. 


TRACE arbeitet wie RUN 
und zeigt im rechten obe- 
ren Bildschirmfeld die 
Zeilen an, die das Pro- 
gramm durchläuft. So 
können leicht fehlerhafte 
Programmierungen gefun- 
den werden. Auch hat es 
sich bei der Analyse unbe- 
kannter Basic-Programme 
sehr bewährt. Will man 
erst bei einer bestimmten 
Zeilennummer starten, 

so wird diese Zeilennum- 
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mer hinter den TRACE- 
Befehl gesetzt. 

TRACE läuft nur so lange, 
wie irgendeine Taste ge- 
drückt wird. Durch kurzes 
Tippen kann auch Einzel- 
schritt-Betrieb durchge- 
führt werden. 


HELP zeigt nach einer 
Fehlermeldung, in welcher 
Zeile an welcher Stelle der 
Zeile der Fehler zu suchen 
ist. 


DUMP gibt nach einem 
Programmlauf an, wie die 
Variablen (keine Felder) 
belegt werden. 


FIND sucht Zeilen, in de- 
nen ein vorgegebener 
Suchbegriff vorkommt. 
FIND IF listet alle Zeilen, 
in denen ein IF-Befehl 
steht. 

Dabei kann der Suchbe- 
griff auch Teil eines Wor- 
tes sein. Beispiel: gesetzt. 
FIND “set“ listet alle Zei- 
len mit dem String ‘set‘. 
FIND kann übrigens auch 
nur in einem Teil des Pro- 
gramms suchen. Man gibt 
die Z.-Nummern wie bei 
LIST ein. Zu beachten- 
der Unterschied: Ist der 
Suchbegriff ein Basic-Be- 
fehl, so muß dieser Be- 
fehl und die Zeilennum- 
mer durch ein Komma ge- 
trennt werden. Ist der 
Suchbegriff ein String, 
übernimmt das ‘ “ “ diese 
Trennung. 


(B) KASSETTENBEFEHL 


PUT speichert ein Pro- 
gramm über den Kasset- 
tenrecorder mit ca. zehn- 
facher Geschwindigkeit 
gegenüber dem normalen 
SAVE ab. Dabei wird zu- 
erst 10 Sekunden gewar- 
tet, bis das Vorspannband 
der Kassette vorbeigelau- 
fen ist. 

PUT“ xyz‘ speichert ein 
Programm mit dem Na- 
men ‘xyz‘ 

PUT* wirkt wie PUT, war- 
tet aber nicht 10 Sekun- 
den. So können alle Pro- 
gramme nach dem ersten 
auf der Kassette ohne die 
Wartezeit abgespeichert 
werden. 


GET liest Programme, die 
mit PUT gespeichert wur- 
den, ein. 


GET“ xyz‘ sucht und liest 
dann das Programm mit 
dem Namen '‘xyz‘ ein. 


COMP (compare) ist die 
schnelle Version von 
VERIFY. 


MERGE ermöglicht das 
Ankoppeln von Program- 
men, die mit PUT auf ei- 
ner Kassette geschrieben 
wurden, an ein Programm 
im Hauptspeicher. So kön- 
nen z.B. schon vorhande- 
ne Subroutinen in neue 
Programme übernommen 
werden. 
Zuerst wird mit GET das 
erste Programm eingela- 
den und dann mit MERGE 
‚das zweite Programm an- 
gehängt. Es empfiehlt sich, 
mit RENUM vorher dafür 
zu sorgen, daß die Zeilen- 
nummern beider Program- 
as sich nicht überschnei- 
en. 


(C) DRUCKERAUSGABE 


VC-Supertool gestattet 
den Anschluß eines 8-Bit- 
Druckers mit sogenannten 
Centronics-Schnittstelle 
an den Userport des VC- 
20, ohne daß ein teures, 
spezielles Interface dafür 
angeschafft werden muß. 
Es ist nur ein Kabel mit 
Userport- und Centronics- 
Stecker erforderlich. 

Die Datenleitungen des 
Userport B werden mit 
den entsprechenden Da-. 
teneingängen des Druk- 
kers verbunden. CB2 ist 
mit Data-Strobe, CBl mit 
Acknowledge zu verbin- 
den. Es ist zweckmäßig, 
ein 14- bis 16adriges Ka- 
bel zu nehmen und vier 
bzw. sechs Adern als 
Masseleitungen zu ver- 
wenden. 

Zum Beispiel der ITOH 
Centronics-Drucker 
8510A. Für ihn ist ein 
Zeichengenerator-Rom 
mit sämtlichen Zeichen 
(auch Grafik) des VC-20 


erhältlich. Da auch Einzel- 


nadel-Ansteuerung mög- 
lich ist, eignet ersich 
zum hochauflösenden 
Plotten, Strichcode-Druk- 
ken etc. P 
Der Drucker kann über 
vier verschiedene Primär- 
adressen (16 bis 19) an- 
gesprochen werden. Da- 


mit wird festgelegt, in 
welchem Modus die Zei- 
chen ausgegeben werden. 


OPEN 1,16 ASCII-Modus 
(z.B. zum Plotten) 

OPEN 1,17 LIST-Modus: 
Steuerzeichen werden 
druckbare Zeichen 

OPEN 1,18 TEXT-Modus: 
Groß-/Kleinschreibung 
OPEN 1,19 GRAFIK- 
Modus (nur mit neuem 
Zeichengenerator) 
Beispiel: OPEN1,17: 
CMD1:LIST druckt ein 
Listing eines Programmes. 
Danach muß durch 
PRINT#1:CLOSEI der 
CMD-Modus ausgeschaltet 
werden. 

Über die allgemeine Ver- 
wendung der Befehle 
OPEN, CMD, PRINT# 
und CLOSE siehe auch 
VC-20 Handbuch und ent- 
sprechende Programmier- , 
handbücher. 


(D) STRICHCODELESER 


BAR (Barcode=Strichcode) 
ist ein Hilfsprogramm, 

mit dem man Strichcode- 
Programme z.B. aus Zeit- 
schriften direkt in den 
Basicspeicher einlesen 
kann. Der gelesene Text 
erscheint gleichzeitig auf 
dem Bildschirm. Der Lese- 
stift wird an den Kasset- 
ten-Port angeschlossen. 


Erhältlich bei: 
Mukra Datentechnik 
Schöneberger Str. 5 


1000 Berlin West 42 
Tel.: 030/752 91 50 
Preis: DM 99, — 


Diese Befehlserweiterung 
ist für editiermüde Anwen- 
der eine durchaus brauch- 
bare Programmierhilfe, 

Es werden Funktionen 
angeboten, die für jeden 
Computer zur Grundaus- 
stattung des BASIC ge- 
hören sollten, wie es zum 
Teil im BASIC 3.5 und 
7.0 erfüllt werden. Viel- 
leicht können sich die 
Computerhersteller ein- 
mal entschließen, komfor- 
table, gebrauchsfertige 
und gebrauchstüchtige | 
BASIC-Versionen anzu- 
bieten. 
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SERVICE 


. Die Mängel derINPUT- 
Routine des C64 sind be- 
kannt: Kein Komma oder 
Doppelpunkt in der Ein- 
gabe und nur 80 Zeichen, 
obwohl der Eingabepuf- 
fer wie beim VC20 88 
Zeichen faßt. Will man 
bei der Eingabe alle Zei- 
chen erlauben, geht man 
normalerweise wie folgt 
vor: 

10 GET A$: IF A$= ” ” 
THEN 10 

20 B$= B$+ A$: PRINT 
AS;: GOTO 10 

Wobei dann B$ im Pro- 
gramm weiterverarbeitet 
wird. Der entscheidende 
Nachteil der Methode 
liegt in der ‚hausinternen‘ 
Müllabfuhr ‚sprich‘ garba- 
ge collection‘ des Compu- 
ters. Jedesmal, wenn B$ 
verändert wird, so wird 
er neu im Speicher abge- 
legt und nur seine An- 
fangsadresse geändert. Ist 
der Speicher voll, muß 
erst einmal der ganze 
Müllstring beseitigt wer- 
den und das kann unter 
Umständen mehrere Mi- 
nuten dauern, abhängig 
davon, wieviel andere 
Variablen definiert und 
verändert wurden. 

Hier nun eine völlig 
‚andere Methode: In Zeile 
190 wird aus dem Inhalt 
der Speicherstellen 45/46 
der Anfang der Variablen 
errechnet. Da vor der De- 
finition von A$ ein CLR 
durchgeführt wird, steht 
AS als erste Variable im 
Speicher an der Stelle VA. 
Bei VA steht daher 65 
(CHRS-Code von A). 
In VA+i steht 128, wo- 
durch A als Stringvariab- 
le gekennzeichnet wird. 
In VA+2 steht 84 (Län- 
ge von A$) und in VA+3/ 
VA+4 steht das LO/HI- 
Byte der Adresse, bei der 
der. String anfängt. Dies 
gibt uns die Möglichkeit, 
A$ durch überPOKEn der 
alten Werte zu verändern. 

Nun gibt es noch zwei 
sehr nützliche Betriebs- 
systemroutinen. Wird 
beim Schreiben auf dem 


MÜULL- 
ABFUHR FÜR 
DEN C64 


Räumen Sie doch einfach Ihren Speicher mal kräftig 
auf. Wie das geht, steht auf dieser Seite. 


Inputroutine 


18 rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem FRAUEN EENUNEN 
rem ® a$ definieren EREN 
rem TERrucnmenetegegeounueetene 
printchr$( 149) chr$( 14); 
a=59949:rem platz fuer folgezei 


inputroutine 84 zeichen === 
mit wenig muell 
(p) commodore welt = 


b=42336:rem eingaberoutine 
sysa:sysa:print"a$="chr$( 34) ;:f 
or i=1t084:printchr$( 168) ; :next 

17@ print:print:print:print”goto198 
188 clIr:poke631,19:poke632, 13:poke6 
33,13:poke198,3:end:rem 
tastaturpuffer 

198 va= peek( 45) +256*peek(46) :rem v 
ariablen anfang 

288 sa= peek( va+3) +256*peek( va+t4):r 
em start »$ 

2IA® rem Hrrrrenerereneuueireneneen 
228 rem * string einlesen 
238 rem HHrsrreeeegerenuennenenene 
248 a=59749:b=42336 :printchr$( 147) 
258 sysa:sysa:sysb:for q=8t084:w=pe 
ek(512+q):if w then pokesatg,w:next 
268 b$=1left$la$,q) :printb$:g0oto258 


Sy € 
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Bildschirm die 40te Spal- 
te erreicht, so wird eine 
Folgezeile eröffnet, das 
heißt, daß festgelegt wird, 
daß diese beiden Bild- 
schirmzeilen zu einer ‚lo- 
gischen‘ Zeile zusammen- 
gehören. 

Das gleiche erreicht 
man mit SYS59749.SYS 
42336 ruft die Eingabe- 
routine auf, welche auf 
RETURN wartet und 
dann die logische Zeile 
in den Eingabepuffer 
schreibt, auf der der Cur- 
sor gerade steht. Jetzt 
braucht man nur noch 
die Werte aus dem Einga- 
bepuffer 512-600, (am 
Ende steht immer eine 
Null) in den Speicherbe- 
reich von A$ zu übertra- 
gen und dann in B$ den 
interessierenden Teil auf- 
nehmen, um ihn dann im 
Programm weiterzuverar- 
beiten. Nun hat man eine 
Eingaberoutine zur Ver- 
fügung, die bis zu 84 Zei- 
chen ohne Einschränkung 
akzeptiert. Werden mehr 
als 84 eingetippt, so wer- 
den nur 84 verwendet. 

Bei mehr als 88 steigt 


das Programm mit 
‚STRING TOO LONG 
ERROR‘ aus. 

Nur Mut! 


Außer zur Zeichenket- 
teneingabe in Program- 
men kann man die Routi- 
ne auch verwenden, um 
sich ein Autonumber-Pro- 
gramm (automatische 
Vorgabe der Zeilennum- 
mern) zu schreiben, das 
84 Zeichen akzeptiert. 
Wenn Sie die Karteikar- 
ten aus der CBM-Revue 
2/86 dazunehmen, haben 
Sie alles, was man dafür 
braucht. Auch 88 Zei- 
chen sind möglich. Hier- 
zu muß die 84 in VA+l 
auf 88 erhöht und die SA 
um 4 erniedrigt werden. 
Nur Mut. Nur selberpro- 
grammieren macht schlau. 
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DIALOG | 


WO GIBT ES 


DAS ROBCOM TURBO... 


In Ihrer Zeitschrift 
COMMODORE-WELT, 
Ausgabe März ’86 berich- 
ten Sie über ein Modul 
Robcom Turbo 50. Habe 
hier bei den Händlern 
nachgefragt, aber keiner 
konnte es mir besorgen. 
Daher die Bitte an’Sie, 
mir einen Quellennach- 
weis zu übersenden, 

wo ich das Modul erwer- 
ben kann. 

Klaus Grettern 

Stolberg 


„UND DIE 
KASSETTEN-EINSTELL- 
HILFE? 


In Heft 3/86 wurde das 
Robcom Turbotool 
Modul besprochen. Leider 
fehlt jede Angabe über 
eine Bezugsquelle. 

In Heft 4/86 wurde eine 
Einstellhilfe für den Kas- 
settenrecorder vorgestellt, 
aber leider ebenfalls 

ohne Bezugsnachweis. 
Rolf Schmitz 

Büren 


Stellvertretend für die 
vielen Anfragen, die 

uns dazu erreichten, e 
hier die Adressen der Her- 
steller, bzw. Importeure, 
bei denen auch ein Händ- 
lerverzeichnis erfragt 
werden kann: 

Robcom Turbo 50: 
Mastertronic GmbH 
Kaiser Otto Weg 18 
D-4770 Soest 


Aackosoft Head 
Alignment Kit 
Aackosoft International 
P.O. Box 3111 

2301 DC Leiden/ 
Niederlande 


WIE IST DAS 
MIT DEM E.V.? 


Mit großer Freude habe 
ich in CW 2/86 den Arti- 
kel ‚So gründen Sie einen 
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Computerclub“ gelesen, 
da ich schon seit einiger 
Zeit einen solchen ins 
Leben rufen möchte. 
Nun laufen die Vorberei- 
tungen auf Hochtouren. 
Mitglieder sind schon ge- 
funden und wir haben 
auch so ziemlich die glei- 
chen Interessen. 

Das erste Problem stellt 
sich jedoch, wenn es um 
das Eintragen des Clubs 
geht. Aus Neugierde gin- 
gen zwei von uns zum 
städtischen Rathaus, um 
dort Informationen zu 
bekommen. 

Dort erzählte man ihnen, 
daß sie mit diversen Un- 
terlagen einen Antrag 
beim Amtsgericht stellen 
müßten. 

Da über die ‚‚diversen 
Unterlagen“ keine weite- 
ren Auskünfte gegeben 
werden konnten, wende 
ich mich nun an Sie, um 
Näheres über das Eintra- 
gen eines Clubs zu erfah- 
ren. 

Nun komme ich zu 
Problem Nr. 2: 


weise sogar komplexe 
Programme zu schreiben. 
Allerdings hat die Sache 
einen Haken: Jemand 
sagte uns, daß man doch 
eigentlich eine Lehrge- 
nehmigung haben müsse, 
um solche Kurse gegen 
Bezahlung durchzuführen. 
Nun möchten wir wissen, 
inwiefern solch ein Kurs 
legal wäre und wann man 
Steuern etc. bezahlen 
muß. 

Erik Jacobi 
Radevormwald 


1. Wenn es unbedingt 

ein eingetragener Verein 
werden soll, so haben Sie 
eine Menge Papierkram 
vor sich: Es muß eine Ver- 
einssatzung erstellt wer- 
den, Vorstand, Kassen- 
wart, Schriftführer usw. 
gewählt werden, deren 
turnusmäßige Wiederwahl 
bestimmt werden und so 
weiter... n‘ 
Um hierfür genaue Infor- 
mationen zu erhalten, 


EEE EEE a EEE GES EEE ET Es BE IERETEEELT TEST REEELTTTEEEE EEE 


LESERBRIEFE UND FRAGEN SIND UNS STETS 


WILLKOMMEN. WIR BEANTWORTEN SIE ENTWEDER 
DIREKT ODER AUF DER LESERBRIEFSEITE 


EEE TEE EL DEE EEE EEE SETEEEREHEN 


In obengenanntem Artikel 
kam unter anderem zu 
Frage 2 die Antwort, man 
könne Schulungen durch- 
führen. 

Nun haben wir uns über- 
legt, daß man, um Fahr- 
ten zu Messen usw. zu 
finanzieren, Kurse in 
Basic und Pascal abhalten 
könnte. 

Räume sind vorhanden, 
Computeranlagen auch, 
ebenso vollständige Kurs- 
unterlagen usw. 

Um diese Kurse zu testen, 
haben wir sie je zweimal 
mit sehr zufriedenstellen- 
dem Erfolg an völlig 
computerunerfahrenen 
Personen, wie z.B. Eltern, 
Verwandten und Freun- 
den, durchgeführt. 

Alle sind nun in der Lage, 
Probleme in Basic und 
Pascal zu lösen und teil- 


wenden Sie sich am be- 
sten schriftlich (!) an Ihr 
Amtsgericht und fordern 
die erforderlichen Unter- 
lagen an, dort kann man 
Ihnen mit Sicherheit 
mehr sagen als wir. 

2. Wollen Sie Ihre Schu- 
lungen öffentlich und ge- 
gen Bezahlung durchfüh- 
ren, benötigen Sie einen 
Gewerbeschein, den Sie 
von Ihrem zuständigen 
Rathaus erhalten. Für 
diese Schulungen müs- 
sen dann natürlich auch 
die betreffenden Steuern 
abgeführt werden. 
Setzen Sie soch doch 
auch einmal mit anderen 
Computerclubs in Ver- 
bindung und erfragen - 
Sie dort, welche Erfah- 
rungen gemacht wurden 
und welche Auflagen zu 
erfüllen sind. 


SCHWIERIGKEITEN 
MIT SEQUENTIELLEN 
DATEIEN 


Mein Problem, bei 

dem Sie mir sicher hel- 
fen können: 

Ich besitze den PC 128 
und die Floppy 1571. 
Schwierigkeiten habe ich 
beim Erstellen sequentiel- 
ler Dateien. Sobald ich 
eine Datei eröffne mit 
——DOPEN# usw. —— 
arbeitet die Floppy kurz, 
dann hört man nichts 
mehr und die grüne Kon- 
trollampe brennt (Dauer- 
licht). Hinweisen möch- 
te ich noch darauf, daß 
ich ganz unterschiedliche 
Programme (sequentiell) 
versucht habe, immer mit 
dem gleichen Ergebnis, 
so daß man wohl einen 
Programmfehler aus- 
schließen kann. Die Feh- 
lerabfrage —— Print DS$—- 
bestätigt mir aber immer, 
daß bei der Floppy alles 
in Ordnung ist. Da es in 
Bielefeld keine speziellen 
Commodore-Läden gibt, 
wende ich mich an Sie 
mit der Bitte, mir Ihre 
Meinung dazu mitzu- 
teilen. 

Wilhelm Kornfeld 
Bielefeld 


Versuchen Sie es ganz 
einfach mit den Befehlen 
des 64ers, denn diese 
funktionieren auch im 
128er Modus. Zum Er- 
stellen sequentieller Files 
auf Diskette also: 

OPEN 1,8,1,“............. ‚S, 


Die Punkte stehen hier 
für den Namen, mit dem 
das zu erstellende File 
auf Diskette geschrieben 
wird (bis zu 16 Zeichen). 
Wenn sich der Cursor 
wieder auf dem Bild- 
schirm meldet, muß 
CLOSE 1 eingegeben 
werden, um den Disket- 
tenkanal wieder zu 
Schließen. Wundern Sie 
sich nicht, wenn beim 
nächsten Diskettenzugriff 
die Fehlermeldung 
>DEVICE NOT 
PRESENTX erscheint. _ 
Nach dem Erstellen von 
sequentiellen Dateien 


LCVUMMODOURE-WELIT 3 


braucht der 128er immer 
eine zweite Aufforderung, 
um die Diskettenbefehle 
auszuführen. : 


ZAHLENBLOCK 


NICHT BENUTZBAR! 


Vor kurzem habe ich mir 
den C128 gekauft. Nach- 
dem ich die Bedienungs- 
anleitung gelesen hatte, 
war ich in einem Punkt 
sehr enttäuscht: Im 64er- 
Modus sind viele Tasten, 
wie auch der Zahlen- 
block, nicht benutzbar. 
Nun meine Frage an Sie: 
Gibt es eine zuverlässige 
Softwarelösung, um im 
64er-Modus auch die 
Tasten des 128er-Modus 
benutzen zu können? 
Denn dies wäre gerade 
bei DATA-Eingaben sehr 
hilfreich. : 

Michael Dumont 

4242 Rees-3 


Leider, leider. Auch*uns 
ist in dieser Richtung 
nichts bekannt, die einzi- 
ge spezielle 128er Taste, 
die auch im 64er Modus 
benutzt werden kann, 

ist die zum Umschalten 
zwischen ASCII und DIN 
Tastatur. Eine Einschrän- 
kung hierbei: Natürlich 
‚kann der C 64 nicht al- 
leine mit dieser Taste die 
deutschen Umlaute dar- 
stellen, welche auf der 
Tastatur des 128 PC an- 
gegeben sind. Durch die 
Umschaltung erhalten Sie 
lediglich ein schmaleres 
Schriftbild und einige 
Sonderzeichen wie etwa 
das Paragraphenzeichen. 
Ob dieses Problem Soft- 
waregesteuert lösbar ist, 
scheint zudem etwas frag- 
lich, da ja zwischen zwei 
völlig verschiedenen Sy- 
stemen umgeschaltet wer- 
den muß. Ein Beispiel: 
Zwar ist es ja bekanntlich 
möglich, vom 128er 
Modus in den des 64er 
mit dem Befehl >GO 64< 
umzuschalten, umgekehrt 
Junktioniert das jedoch 


nur durch Ausschalten bzw. 


RESETEN. Eine Möglich- 
keit für Sie: 
Bei Exbasic II haben Sie 


einige Zusatzfunktionen 
wie z.B. HELP, außerdem 
sind im Handel externe 
Zehnertastaturen für den 
C 64 als Bausatz oder 
Komplettgerät erhältlich, 
die auch am 128er im 

C 64 Modus verwendet 


. werden können. 


DENKT MEHR AN 
DIE ANFÄNGER!!! 


Zu Weihnachten bekam 
ich einen Commodore 16 
geschenkt. Ich gehöre 
der Generation an, die 
nun schon auf die 40 zu- 
geht, und (vielleicht auch 
technisch nicht allzu be- 
gabt) sich schwer tut 

mit dem ‚„computern“. 
Mir fehlt es als Hausfrau 
auch an jeglichen Vor- 
kenntnissen. 

Doch mir geht es nicht 
alleine so. Viele Eltern- 
teile — halt auch ‚,‚ein- 
fache Leute‘ — würden 
gerne mit ihren Kindern 
mitmachen. Ich kenne 
einige Mütter, die gerne 
„im Gespräch“ mit ihren 
Kindern bleiben würden. 
Doch für diese Gruppe 
der-Computer-Fans fehlt 
leider Fachliteratur. 
Echte Lektüre für den 
totalen Anfänger. 

Im mitgelieferten Hand- 
buch wird auch ausdrück- 
lich auf genauere Lite- 
ratur verwiesen, die ich 
aber gerade für den Com- 
modore 16 nirgendwo 


(Kaufhäuser, Geschäfte) ° 


finden kann. 

Manches verstehe ich aus 
dem Handbuch, vieles 
nicht. Für viele Funktio- 
nen (Grafik-Teil) sind 
Beispiel-Programme ein- 
gegeben — aber keine Er- 
klärungen dazu. Ein 
Programm für eine Kurve 
— aber willich die Kurve 
verändern, muß ich das 
Programm verändern, 
aber ich weiß nicht, wel- 
che Zeile — und Ähn- 
liches! 

Von den Schwierigkeiten 
mit den “Neudeutschen“ 
Fachbegriffen ganz zu 
schweigen. 


ne Bekannten und mich 
eine herbe Enttäuschung. 
Wir haben die Nr. 2/86 
gekauft und genau “O0 
Artikel gefunden, die bei 
unserem Wissens-Stand 
einsetzbar gewesen wären. 
(Außer dem Thema Club- 
Gründung - aber die mei- 
sten verlieren am ganzen 
Thema Computer schon 
wieder die Lust!) 

Aus diesem Grunde habe 
ich diesen Brief geschrie- 
ben, denn auch Anfänger 
sind halt potentielle Kun- 
den, wenn man sie bei 
der Stange halten kann. 
Vielleicht können Sie mir 
einen Tip für Anfänger- 
Lektüre für den Commo- 
dore 16 geben — ich wäre 
Ihnen sehr dankbar. 

In jedem Fall würde ich 
aber vorschlagen, die 
Anfänger generell nicht 
zu vergessen. Sonst ver- 
stärkt sich der Trend, 
den ich im Verwandt- 
schaftskreis bemerke = 
Leute unter 30 Compu- 
ter-Fans/Leute über 30 
Computer-Gegner und 
Verteufler. Gegner des- 
halb, weil uns Menschen 
die Trauben niemals zu 
hoch sondern immer zu 
bitter sind. 

us Kock 


erlin 


Liebe Frau Kock, die im 
Handbuch aufgeführte 
Literatur werden Sie ver- 
mutlich bei dem Händler 
erhalten, bei welchem 
auch Ihr Computer ge- 
kauft wurde (falls er gut 
sortiert ist). Wenn Sie 
dort keinen Erfolg haben, 
wenden Sie sich direkt 
an Commodore, dort 
müssen diese Bücher eben- 
falls erhältlich sein. Im 


freien Handel erhältlich ist 


außerdem folgendes 
Buch, welches sich spe- 
ziell mit dem C 16/116 
auseinandersetzt und 
auch eine grundlegende 
Einführung in das 
“Computern” enthält: 
Basic-Wegweiser für den 
C 16, 116, Plus/4 
Ekkehard Kaier 
ISBN-Nr. 3-528-0433 7-7 
Vieweg Verlag, Wiesbaden 
45,— DM 


Auch Ihre Zeitschrift war in Außerdem führen inzwi- 


dieser Hinsicht für mei- 


schen die meisten großen 


Buchverlage entsprechen- 
de Titel, vom Grundwis- 
sen bis zu Spezialanwen- 
dungen, genauere Infor- 
mationen erhalten Sie 
sicherlich von jeder Buch- 
handlung 

Zu Ihren Schwierigkeiten 
mit der Verständlichkeit 
von Fachbegriffen: Wir 
haben eigentlich bis jetzt 
die Erfahrung gemacht, 
daß auch von Computer- 
neulingen unsere Zeit- 
schrift gelesen und ver- 
standen wird. Wir bemü- 
hen uns, die Artikel 
selbst für Computerlaien 
so verständlich wie mög- 
lich zu halten, was auc 
durch positive Reaktio- 
nen der Leser bestätigt 
wird. 


Electronic Swiss 
Mailing — Computer 
Club Switzerland 


Der ESM-Computer 
Club Switzerland (ESM- 
CCS) ist vor ein paar 
Monaten aus der 
DATA 64 und dem 
ESM-CCR hervorgegan- 
gen. Der Club besitzt 
zur Zeit etwa 150 
Mitglieder. Wir sind 
nicht an ein bestimm- 
tes Computersystem 
gebunden und haben 
auf diese Weise Com- 
uteruser aus allen 
parten in uns vereint. 
Der Erfahrungsaus- 
tausch steht für uns an 
erster Stelle der Ziele, 
die sich der ESM- 
CCS gesetzt hat. 
Um den Kontakt unter 
Computerfreunden zu 
verbessern, sind wir 
Betreiber einer Mail- 
box. Außerdem er- 
scheint monatlich unse- 
re 20 Seiten umfassen- 
de Zeitschrift Compu- 
ter Times, in der wir 
Tips & Tricks, News 
und Soft & Hardware 
behandeln. Im Jahres- 
beitrag von 40,— Fran- 
ken (30,— Schüler) ist 
die Zeitschrift enthal- 
ten. Infos sind anzu- 
fordern bei: 
ESC-CCS 
Postfach 
4125 Riehen 
Schweiz 
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_ TIPS & TRICKS | 


128PC 
HARD- 
COPY AUF 
TASTEN- 
DRUCK 


Der PC 128 hat einen eingebauten 
Maschinensprachemonitor und ei- 
nen Mini-Assembler sowie leicht 
programmierbare Funktionstasten. 
Mit diesen Elementen ist es leicht 
möglich, eine 80 Zeichen Hard- 
copyroutine auf eine Funktionsta- 
ste zu legen. 

Diese Routine ist in Maschinen- 
sprache geschrieben und ist nur 
ca. 500 Bytes lang. Sie steht in der 
Bank 15 (hex F) und dürfte somit 
sicher vor etwaigen Überschreibun- 
gen sein. Der 80 Zeichenvideocon- 
troller verfügt über einen eigenen 
16 kB-Speicher, diesen kann man 
über die Adressen 3d600 und $d 
601 ansprechen bzw. auslesen. 
Über diese Adressen muß nun Byte 
für Byte ausgelesen werden. 

Das wäre für ein Basic-Programm 
eine zu mühselige und vor allen 
Dingen langsame Angelegenheit. 
Um schnell zu sein, wird also in 
'Assembler’ (Übersetzer) program- 
miert. Der PC 128 hat einen soge- 
nannten Direktassembler, das heißt, 
daß die Befehle sofort in Maschi- 
nencode übersetzt werden. Somit 
ist es also nicht möglich, ein soge- 
nanntes Quellcode-listing zu er- 
stellen. Dies ist auch der Grund 
für das etwas seltsam anmutende 
Listing. Das abgedruckte Listing 


stellt den disassemblierten 
(rückübersetzten) Speicherinhalt 
dar. Die linke ’Zahlenreihe’ sind 


die Speicherplatznummern, die 
nachfolgende 3-spaltige Reihe 
stellt den Speicherinhalt in he- 
xadezimaler Schreibweise dar. Die 
beiden rechten Spalten enthalten 
ebenfalls den Speicherinhalt, aber 
in m-nemonischer Schreibweise und 
in dieser Form muß auch das Pro- 
gramm eingegeben werden. Denn 
nur diese Sprache versteht unser 
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Mi2F8 14308 


>812F®8 
>81388 
>81318 
>81328 
>81338 
>81348 
>01358 
>81368 
>81378 
>81388 
>81398 


>B13AB 


>813B8 


>813C8 


>813D08 


>B13EB 


>B13F® 


>81488 


>81418 


>81428 


>81438 


5SY54864 
READY. 


2A 
85 
28 
Ag 
14 
FB 
1a 
AS 
2C 
14 
85 


c9 


E® 


43 


FB 


BA 


E8 


AD 


18 


FB 


18 


FE 


22 


08 


A9 


FA 


69 


FF 


BE 


43 


45 


43 


4D 


A9 


ca 


BE 


28 


AE 


11 


14 


FB 


14 


86 


8E 


AE 


D2 


69 


FD 


E8 


2C 


34 


52 


4D 


ar 44 
08 85 
FF A2 
on 14 
81 14 
en 1a 
28 D2 
EB AS 
AD 81 
18 09 
FE 24 


8D 14 


eD 14 


FF A9 
008 85 
c8 Ca 
EB 19 
088 D6 
2eF 31 
28 42 


ar 44 


ar 52 
FA 
1 
sc 
A2 
AC 
FF 
FA 
DE 
49 
FE 


A2 88 


4C BD 


41 


ar 


45 28 
FC A9 
C9 FF 
14 a2 
BE 08 
14 8D 
oD 14 
a1 14 
oD 14 
48 Ag 
22 09 


BD 8F 


13 208 


D2 FF 
AS FC 
83 AC 
28 cc 
8D 81 
36 28 
43 48 


45 28 


| TIPS& TRICKS 


Prozessor, auch Basic wird im 

Interpreter in diesen Code über- 

Ri MEINER setzt und das kostet viel Zeit. Um 

57 45 AC 5A 2A: Een Reue [ech this hr. ARe=HR A.rrllke das Programm eingeben zu können, 
muß der Monitor mit der F8-Taste 

eingeschaltet werden. Er meldet 
sich wie im Listing angezeigt. Mit 
dem ’A-Befehl’ (assemblieren) kön- 
AMk9 BD 28 D2 FF ee Be EEE le nen nun alle Anweisungen an den 
Prozessor übergeben werden. Die 
erste Eingabe sieht so aus: A F1300 


12 AS FD 28 91: Hrn a STA $FB ’RETURN”. 
Sofort nach dem Drücken der Re- 
D6 2C 98 DE 18 : Maker Hg ten Dose Wa Se ZABWEIRUDE 
Für Hiresgraphik 
BD 14 18 AD BD: "ER nicht geeignet 
übersetzt und der Rechner gibt Ih- 
8C BE 14 A2 12: WERE nen den nächsten Speicherplatz an. 


(Ähnlich der automatischen Zei- 
lennummerierung in Basic). Sie 


A2 IF 8E 88 D6 : "RN MEET brauchen also nur die beiden 
oo. . rechten Reihen einzugeben. Also ist 
AC BE 14 8D BD : Kill" TER die nächste Eingabe STX $FD ’RE- 


TURN’, danach LDA #300 usw. 
Ihre letzte einzugebende Zeile 
12 28 D2 FF 68 : Wil ist JSR $084F, die beiden anderen 
mit den Fragzeichen brauchen Sie 
nicht einzugeben. Statt dessen 


88 78 82 989 48 : limit SEE NE drücken Sie zweimal ‘RETURN‘, 

i ' es wird keine Speichernummer 

14 28 D2 FF EB: leid Bl ai mehr ausgegeben und Sie können 
2 nun das Programm mit: 


S’HARDCOPY, 08, F1300 F1410 

auf Disk abspeichern. Wenn Sie al- 

D2 FF A9Y @B 885 : Di HH HA = cap gemarbe haben <o Eon 
nen Sie bereits jetzt eine Hardcopy 

Ihres Bildschirmes drucken lassen. 
18 AS FA 69 81 : lied est ER Sie geben nur ’SYS 4864’ und ’RE- 
TURN’ ein. Ihr Drucker, wenn ein- 

geschaltet, muß jetzt losrattern, 


her den Monitor mit ’X’ verlassen 
24 13 A9 @D 28 : Ele edel a akerinie 


in den Speicher zu laden, brauchen 
Sie nicht mehr den Monitor, son- 
FF AI BI AC 03: Kell en dern Sie können mit BLOAD’- 
HARDCOPY’ die Routine laden. 
n HIRHR SH Spargel THITRGERITTTIGFRITHITTTERSFEFTTITIEHFTÄRTLELTELITTTTEL FT Konad: PRRSAPFRN Wenn Sie das Programm mit einer 
D6 68 28 ar FF Pi a IH NORHEN HERNE BEN AISHT TI.) ECT rc : Funktionstaste aufrufen wollen, 
so müssen Sie eine der Tasten z.B. 
m HH HEBEN, BERARCHSS FE na ang FÄHRE CET TEERSRIT Hi Fl fol endermaßen belegen: 

43 57 28 26 28 : Wi wessen KEY FI, SYS 4864+CHR$(13) 

Wenn Sie jetzt die Fl-Taste drük- 


00 BO OD 98 88 : Fährte es ken, wird sofort eine Hardcopy 
erstellt. Das geht allerdings nur 

wi sl jaa20 FEIN 1201| zu 183] apat rt] jeggjseet; an an i hi ’ fü 

57 45 AC 54 2a: EIER E u 


Hiresgraphik ist diese Routine 
nicht geeignet. Aus einem Pro- 
gramm heraus können Sie die 
Hardcopy mit SYS DEC (’1300°) 
ebenfalls starten. 

Peter Basch 
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BLOCKS USE 
ON TRACK 18 


Dieses Programm läuft 
auf dem Commodore 64 
in Verbindung mit einer 
Floppy 1541. Tippen Sie 
dieses Listing ein und ver- 
gewissern Sie sich, daß 
Sie das Programm abge- 
speichert haben. Starten 
Sie nun das Programm. 
Der Computer wird Sie 
auffordern, die zu bear- 
beitende Diskette einzu- 
gen. Ist dies geschehen, 
so überprüft der Compu- 
ter, ob die Diskette 
eventuell noch schreib- 
geschützt ist Danach 
fragt er Sie. ob Sie ein 
“Validate‘‘ machen wol- 
len. Dies ist sehr zu emp- 
fehlen, wenn mit der Dis- 
kette nach dem letzten 
“Validate“ noch einmal 
gearbeitet wurde. 

Als nächstes erwartet er 
die Anzahl der Blocks, 
die Sie frei gemacht ha- 
ben wollen. Nach der _ 
Eingabe dieser Zahl (min. 
0 max. 17) beginnt er zu 
arbeiten. Stehen nicht ge- 
nügend Blocks zur Ver- 
fügung, so meldet er sich 
mit einer Fehlermeldung 
wieder. Wählen Sie nun 
unter den drei Möglich- 
keiten: 

1) Das Programm been- 


den 
2) Weniger Blocks 
besetzen 
oder 
3) Das Programm neu 
starten. 
Sind genügend Blocks vor- 
handen, so arbeitet er 
und zeigt dabei an, was 
er gerade macht. 
Der Computer führt am 
Schluß noch ein “Vali- 
date“ aus und fragt Sie, 
ob Sie das Programm 
noch einmal brauchen. 
Ist dies nicht der Fall, 
so wird das Programm be- 
endet und die benötigte 
Zeit ausgedruckt. 
Wartet der Computer auf 
eine Eingabe, so können 
Sie dann mit ““$“ die 
Directory auf den Bild- 
schirm bringen. Durch 
Druck auf die “Return“- 
Taste kehren Sie wieder 
ins Menü zurück. 
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Zeile/Beschreibung 


1180-1220 

Felder aufbauen 
1260-1330 

Uhr auf Null stellen 
1500-1540 

Abfrage auf Schreib- 
schutz 

1690-1780 

Anzahl der freien Blocks 
wird ermittelt 
1790-1910 
Fehlermeldung bei zu 
wenigen Blocks 
1960-2070 

Sucht in der Directory 
nach PRG- oder SEQ-File, 
um diesen dann umzu- 
kopieren 

2140-2310 

Merkt sich die zu verar- 
beitenden Blocks 
2320-2580 

Kopiert die richtigen 
Blocks um 

2590-2820 

Stellt die Directory wie- 
der her 

3380-3520 

Beseitigt auf Wunsch den 
Schreibschutz 


3540-3750 

Geht die Blocks der 
Directory nach, markiert 
diese in der BAM (falls 
dies noch nicht geschehen 
ist 

3770-3960 
Maschinenroutine,um die 
Directory einzulesen 


Was macht das Programm? 


Eine Diskette ist nach 
der Formatierung in 35 
Tracks eingeteilt. Auf 
Track 18 befinden sich 
19 Sectoren. Auf Sector 
O steht der Name der Dis- 
kette und die BAM. Die 
Nameneinträge der Files 
startet auf Sector 1. 
Für je acht Einträge 
braucht man einen eige- 
nen Block. Daher be- 
steht die Möglichkeit, 
144 Files (18 Sectoren a 
8 Einträge) pro Diskette 
zu haben. Da man aber 
sehr selten so viele Ein- 
träge benötigt, bleiben 
meist mehrere Blocks 
frei. 

Das Programm “Blocks 
use on Track 18° kopiert 
normale Files nun auf 
diese freien Blocks. So 
ist es möglich, mehr als 


18 rem blocks use on track 18====64 
28 rem (p) commodore welt == 
38 rem ========-======0==========22=== 
48 rem (c) by == 
58 rem thomas winkler == 
68 rem == 
78 rem version 2.8 Adz/ascii == 
88 rem c 64 + 1541 == 
99 rem ===============2=2====2=2====2= == 
188 c4$=chr$( 817) :c2$=chr$( 145) 

119 ©1$=chr$( 157) :rn$=chr$( 918) 

120 rf$=chr$( 146) :c3$=chr$( 829) 

138 c1$=chr$( 147) :wh$=chr$( 885) 

148 dim di( 18) 

158 dim b1$( 17): rem "b1$ = Blocks 
lesen 

168 dim nd( 17,3) :rem"neue directory 
178 dim dr( 17,2) :rem "frei = 1 


188 dim ts( 17,2) :rem " 


track secto 


r des zu verschiebenden Blocks 


199 
208 
210 
2208 
238 
240 
258 
268 
278 
288 
298 
388 


co=® 


ı xx=® 


: c1=8: ww=® 


ge$=-"a":pge=V 
ti$-=-"o000090" 


c=56 
poke 
poke 
poke 
poke 
poke 
poke 
gosu 


328 


c+7,peek(c+7) and 127 


c+6,p 
c+3,8 
c+2,80 
c+1,8 
c+B8,8 
b 2720 


eek(c+6) or 128 


poke532880,8:poke53281,@:printel 


$wh$ 
318 gosub 2278 


328 print " 
338 print "” 
348 printcA$cA$" 


kann man das 
358 printc4$"..Inhaltsverzeichnis d 
er Diskette mit" 


368 printc4a$"”.. 


Bei jeder Eingabe 


";chr$( 34) ;"$";chr$(. 


34);" einladen." 


378 printc4$".. 
druecken. 
388 poke 198,8: 
398 gosub 2278 
488 print”..Die zu 


"rfg" 


de 

418 
428 
438 
448 
458 
468 
478 
488 


ette ist schreibgeschuetzt 


Danach "rn$"” Return 


wait 198,1 


"rn$" bearbeiten 


"rf$” Diskette" 
printc4$" 
gosub 2218 
open 15,8,15,"i8" 
open 2,8,2,"#9" 
print#15,"u1l 2 8 18 8" 
print#15,"b-p 2 2" 
get#2,a$ 
ifa$<>"a"thenprintc4$c4$"..Disk 


einlegen !!" 


mm zz A 


Blocks use om 


498 if a$<>"a” then gosub 2348 

SB gosub 2588 

518 printc4$"..Validate zur Sicherh 

eit (j/n) ?"; 

528 get a$:if a$="j" or a$=chr$f 13) 
then print "j": print#15,"v8": got 

o 568 

s38 if a$="$" then sys 49152 

san if a$<>"n" then 528 

558 print "n" 

568 gosub 2158 

578 printc4$"..Wie viele Blocks sol 
l ich besetzen ?" 

588 input”....8";an$ 

599 printc4$c1$c1$c1$ 

688 ifan$="$"thensys49152:printc?$c 

2$c2$:g0t0588 

618 an=val(an$) 

628 ifan<doran>17?thenprintc2$c2$c2$ 
"got0588 

6308 if an=® then close 2: close 18: 
end 

648 print:print 

659 close 2: open 2,8,2,"#9"” 

668 for i=2 to 18 

678 print#15,"b-a ® 18";i 

688 input#15,a$,b$,c$,d$ 


788 printc2$"”..Block : ";i;"” ";a$;"” 
":b$;".."ıxx 

718 dr(xx,2)=B: dr(xx,®8)=18: dr(xx, 
1)=-i 

728 if a$="88" then dr(xx,2)=1:xx=x 

x+1 

738 if a$="80" then print#15,"b-f ® 
18" ;i 

748 next 

758 if an<=xx then 888 

768 gosub 2278 

778 print "..$5o viele Blocks stehen 
nicht zur "” 

788 printc4$"”..Verfuegung !! (Nur"; 
xn;")" | 

798 printc4$c4$"..Wollen Sie :" 


888 printcA$"”........ 1. das Program 
m beenden " 
818 printcA$"........ 2. weniger Blo 


cks besetzen" 

828 printc4$"..oder..3. 
start ?" 

838 geta$:ifa$="1"thenprint#15,"vB" 
:g0t01958 

848 if a$="3" then close 15: run 
850 if a$="$" then sys 49152 

868 if a$<>"2” then 830 

870 poke631,13:poke632,13:poke198,2 
run 


Proprammneu 


track .18 ea - Te 


898 gosub 2278 

988 a$=rn$"” Moment "rf$ 

918 gosub 2388 

928 ab=1 

938 print#15,"ul 2 8 18";ab 

948 print#15,"b-p 2 1" 

950 get#2,a$ 

968 ns=asc(a$) 

978 for qq=8 to ? 

988 if co>=an then 1288 

998 x=2+(32*qg) 

1888 print#15,"b-p 2"”;x 

1818 get#2,a$: a$=a$+chr$( 8) 

1828 ifasc( a$) =13Borasc( a$) =129then 
1128 

1838 next 

1848 ab=ns 

1858 if ns<255 then 1188 

1868 printc4$c4$"..Nicht genuegend 
Blocks besetzt !! 

1878 printc4$c4$”..Taste = Propramm 
neustart" 

1888 poke 198,8:wait 198,1 

1898 run 

1188 print#15,"ul 2 8 18";ns 

1118 goto 948 

1129 get#2,a$: a$=a$+chr$( ®) 

1138 if asc(a$)=18 then 18938 

1148 ts(co,8)=asc( aß) 

1158 get#42,a$: a$=a$+chr$( BD) 

1168 ts(co,1)=asc( a$) 

1178 ts(c1,2)=1 

1188 print#15,"ul 2 8 ";ts(co,®);ts 
(co,1) 

1198 co=co+1:c1=c1+1 

1288 print#15,"b-p 2 98" 

1218 get#2,a$: a$=a$+chr$( ®) 

1228 ifasc(a$) =Bthenprint#15,"u1 2 
B 18";ab:c1=c1+B:g0t01838 

1238 ts(c1,2)=® 

1248 ts(co,®8)=asc( a$) 

1258 get#2,a$: a$=a$+chr$( 8) 

1260 ts(co,1)=asc(a$) 

1278 if co<an then 1188 

1288 printc4$c4$”..Ich habe jetzt s 
chon ..."” 

1298 open 3,8,3,"#1" 

1388 printc4A$"” 8 Block(s) verarbe 
itet."” 

1318 for z=® to an-1i 

1328 if ts(z,2)<>® then nd(ww,®)=ts 
(z,®9): nd(ww,1)=ts(z,1) 

1338 if ts(z,2)<>8 then nd(ww,2)=dr 
(2,8): nd(ww,3)=dr(z,1): ww=ww+1 
1348 print#15,"u1 2 8";ts(z,8) ;ts(z 
‚ı) 

1358 print#15,"b-p 2 8" 
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Dee ee es: EEE 


Blocks use om 


1368 get#2,a$,b$ 

1378 nt=asc( a$+tchr$( 8)) 

1388 ns=asc( b$+chr$( 9)) 

1398 for o=1 to 254 

14088 get#2,a$ 

1418 if a$="" then a$=a$+chr$( d) 
1428 b1$(z)=b1$(z) +a$ 


1430 next 
1448 print#15,"b-p 3 9" 
1458 if nt=® then print#3, chr$(8);c 


hr$(ns) ;:goto 1480 

1468 if z=an-1 then print#3,chr$(ts 

(an,8));chr$(ts(an,1));:goto 1488 
1478 print#3,chr$( dr( z+1,8)) ;chr$(d 

r(z+1,1)); 

1488 for o=1 to 254 

1498 print#3,mid$(b1$(z),o,1); 

1508 next 

1518 print#15,"u2 3 8 18" 
1528 printc2$c3$;z+1 

1538 next 

1548 close3 

1558 gosub 2278 

1568 print "..Directory wird neu zu 

sammengestellt" 
1578 printc4$"”. 
15808 ab=1 

1598 print#15,"ul 2 8 18";ab 

1688 print#15,"b-p 2 9" 

1618 get#2,a$,b$ 

1628 ns=-1 

1638 if asc(a$+chr$(8))=18 then ns= 

asc(b$) 

1648 for i=® to 7 

1658 bp=3+( i*32) 

1668 print#15,"b-p 2"”;bp 

1678 get#2,a$,b$ 

1688 a=asc(a$+(chr$(8))) 

1698 b=asc(b$+(chr$(8))) 

"1788 x=8 

1718 if nd(x,8)<>a or nd(x,1)<>b th 

en x=x+1:if nd(x,8)=® and nd(x,1)=® 
then 1758 

1728 if nd(x,8)<>a or nd(x,1)<>b th 

en 1718 

1738 print#15,"b-p 2";bp 

1748 print#2,chr$(nd(x,2)) ;chr$( rd 


;dr(z,1) 


.und geschrieben ... 


x,3)); 

1758 next 

1768 print#15,"u2 2 @8 18";ab 

1778 if ns>® then ab=ns: goto 1598 


1788 close2 

1798 printc4$c4$"..Ich mache ein ’V 
alidate’ ..."” 

1888 print#15,"v0" 

1818 input#15,3$,b$,c$,d$ 

1828 ifa$<>"88"thenprintc4$c4$;a$;" 
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track 18 u © Ze 


";b$;" ";c$;” ";d$;" 1" 
1838 ifa$<>"88"then 1830 
1848 print#15,"i@" 

1858 if ge=1 then ge$="b": 

08 

1H09 printc4$cA$"”. 
":fori=#t05Md8: 

1879 gosub 2278 

1888 print " 

1898 print " 

1988 printc4A$c4$"..1. 


gosub 24 


‚Programm fertig 
next 


Wollen Sie :" 


Neue Diskette 


1918 printc4$" 2. 
1928 get a$:if a$= 
2 

1930 if a$="1" 


Ende" 
"$" then sys 4915 


then close 15: run 


‚1948 if a$<>"2" and a$<>chr$( 13) th 


en 1928 

1958 „printe4$”Benoetigte 64 ’er-Zeit 
: ;left$(ti$,2);"h ";mid$(ti$,3, 

2);"m "; 

1968 print right$(ti$,2);"s 


1978 h=peek(c+3) :m=peek(c+2) :s=peek 
(c+1) 

1988 f=1 . 

199@ if h>32 then h=h-128: f=9 


2888 h=int(h/16) #19+h- int(h/16) #16: 
on f goto 2838 

28018 if h=12 then 2948 

2828 h=h+12 

2838 if h=12 then h=9 

2848 m=int(m/16) #1@8+m-int(m/16) #16 
2058 s=int(s/16) #18+s-int(s/16) #16 
2868 h$=str$(h) :if len(h$)=2 then h 
$=" B"+right$Ch$, 1) 

2878 m$=str$(m) :if len(m$)=2 then m 
$=" @"+right$(m$, 1) 

20888 s$=str$(s):if len{s$)=2 then s 
$=" @"+right$(s$, 1) 

2098 ze$=right$( h$, 2) +right$(m$,2) + 
right$(s$,2) 

2188 printc4$" Benoetigte Gesamt -2Z 
eit: ";left$(ze$,2);"h ";mid$( ze$,3 
‚2);"m”; 

2118 print right$(ze$,2);"s 

2128 close15:close2 

21380 end 

2140 : 

2158 input#15,a$,b$,c$,d$ 

2168 if valla$)=® then return 


2178 close 2: close 15 

2188 print a$;" ";b$;"” ";c$;"” ":d$; 
Li3 Aa 

2198 stop 

2208 : 


2218 print:printc2$c3$c3$"”ok ?...CR 
eturn) ” 


22280 get a$: if a$="$" then sys 491 


nn 


if a$<>chr$( 13) then 2229 
print:printc2$c2$"” 
"c2$ 

return 

2268 : 

printchr$( 147) 
print 

a$=" Blocks use Tr.18 " 

print tab(int((4B8-1len(a$))/2)) 


printc4$c4$c4$ 
return 


printc4$c4$" Aendern ? ( j/n)" 
close 2:close 15 

get a$:if a$="j" then 2488 

if a$="$" then sys 49152 

if a$<>"n" then 23608 

end 
open15,8,15,"i@": 
open2,8,2,"#0" 
2428 print#15,"m-w"chr$( 1)chr$( 1)ch 
r$( 1) chr$( 65) 


ge=1 


2438 print#15,"u1l 2 8 ı8 9" 
2448 print#15,"b-p 2 2" 

2458 print#2,ge$ 

2468 print#15,"u2 2 8 18 ®" 
2498 print#15,"i®"” 

2488 return 

2498 : 

2508 ab=1 

2518 di(B)=1 

2528 di( 1)=1 

2538 print#15,"ul 2 B 18";ab 
2548 print#15,"b-p 2 1" 

2558 get#2,a$ 

2568 if a$="" then a$=a$+chr$( 9) 
2578 a=asc(a$) 


2588 
2590 
2618 
2608 printc4$c4$c4$cA$" 
Fehler !":g0t02698 

2618 ab=a 

2628 goto 2538 

2638 for i=® to 18 
2648 if di(i)=1 then print#15,"”"b-a 
8 18";i 

2658 next 

2668 input#15,a$,b$,c$,d$ 

26978 if valla$)<28 or vall(a$)=65 th 
en return 


if a>18 then 2638 


if di(a)=® then dila)=1: goto 


Directory 


2689 goto 2798 

2698 input#15,3$,b$,c$,d$ 

2788 printcA$c4$"”..";a$;" ";b$;" "; 
c$;" ";d$;" 28 

2719 goto 2710 


track 


18 = 5 


2728 
2738 
2748 
2758 
2768 
2778 
2788 date 76,192,192,169,36, 133,251 
‚169,251, 133, 187, 169, oO, 133, 188, 169, 
1, 133 
2990 data 183,169,8,133,186,169,96, 
133, 185,32, 213, 243, 165, 186, 32, 180, 2 
Ss5, 165 
2888 data 185,32,158,255,169,8,133, 
144,168,3,132,251,32,165,255, 133,25 
2,164 
2818 data 144,208,47,32,165,255, 164 
‚144,208,48,164,251,136,288,233,166 
‚252 
2826 data 32,285,189,169,32,32,21®, 
255,32,165,255, 166, 144,288, 18, 170,2 
48,6 
2830 data 32,218,255,76,79,192,169, 
13,32,218,255, 160,2,288, 198, 32,66,2 
46,96 
2848 data 56,32,240,255, 142,8, 197,1 
48,1,197,1608,0,185,0,4,153,8,193,18 
5,0,5 
2858 data 153,8,194,185,0,6,153,0,1 
95,185,8,7, 153, D, 196, 200, 192, o, 208, 
229, 96 
2868 data 174,8,197,172,1,197,24,32 
‚240,255,168, a, 185, B, 193, 153, a, 4,18 
5, Bo, 194 
2870 data 153,0,5,185,0,195,153,0,6 
‚185,80,196, 153, o, 2, 208, 192, B, 208, 22 
7, 96 
28588 data 32,188, 192,169,216, 160, 19 
2,32,38,171 ‚32, 3,192,32, 228, 255 ‚201 
‚13, >08 
2890 data 249,32, 158,192,96, 147,17, 
17,32,32,32, 32, 32, 32,32, 32, 32, 32, 18 
‚32,194 
2908 data 76,79,67,75,83,32,85,83,6 
9,32,212,82,46,49,56,32,146, 17, 17,1 
7 
2918 
2928 
2938 
2948 
2958 
2968 
2978 


restore 

for i=49152 to 49486 
read x: pokei,x 

next 

PRLUER 


data 17,13, 

rem blocks use on track 18==== 
rem 838911 bytes memory == 
rem 887673 program > 
rem 898234 variables == 
rem 9891998 
rem 888324 
2988 rem 829593 
2998 rem 


664 Blocks pro Diskette 
zu belegen. 

Achtung: Wenden Sie die- 
ses Programm niemals auf 


Disketten mit „versteck- 
ten‘ Blocks an, da diese 
sich möglicherweise auch 
auf Track 18 aufhalten. 
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Balkengrafik 


18 rem balkengrafik+diagramm====128 
28 rem = (p) commodore welt == 
38 rem ==========================>=> 
48 rem = (c) by == 
S8 rem = walter becker == 
680 rem = == 
78 rem = version 7.8 4Bdz/ascii == 
88 rem = 128 pc + 1541/1571 == 
98 rem ====================2=====02== 


188 colorS,2:color4,2:color®,5 
118 dimal 12) 


128 printchr$( 147) 


138 print"”..... mittelwert und summe 
nberechnung 

1408 print"”..... (mit balkengrafik-un 
d diagramm) 

158 print”... ..=================2=== 
-==========",print 


168 print" eingabe der werte":print 
178 poke21,64 

188 input” anzahl der einzugebenden 
werte ";z:print :print 

198 ifz>12thenprinttab( 18) chr$( 18)" 


maximal 12 werte";chr$( 146) :print:p 
rint:g0t0178 
288 input” wert..i : ";a(l1):print 
218 input” wert 2 : ";a(2):print 
228 input" wert 3 : ";al3):print 
238 input” wert 4A : ";a(4):print 
244 input” wert 5 : ":al5):print 
258 input” wert 6 : ";a(6) :print 
268 input” wert 7? : ";al?):print 
278 input” wert 8 : ";a(8) :print 
288 input” wert 9 : ";a(9):print 
298 input” wert 18 : ";a(l 18) :print 
388 input“ wert 11 : ";a(l11):print 
318. input” wert 12 : ";a( 12) :print: 
print 
328 print” werte richtig eingegeben 
? (3/n) 
330 getm$:ifm$<>" j"andm$<>"n"then33 
[%) 
348 ifm$="j"thenprintchr$( 147) :goto 
368 
358 ifm$="n"thenprintchr$( 147) :goto 
168 
368 print” mittelwert und summe 


378 print"=====================".pr 
int:print 

388 poke21,8:print 

398 sm=al 1) +a(2)+a(l3) +al4)+al5) +al6 
J)+al7) +al8) +al9) +al 18) +al 11) +al 12) 
488 sm=int( sm#180+8.5) /198 

418 mw=sm/z 

428 mw=int(mw*#1980+8.5) /188 

438 printusing” summe...... = HAB, HH 
#.#4” ,sm :print:print 

448 printusing” mittelwert = HAAN HH 


28 


+ Diagramm 


# #4” ;mw:print:print:print:print 
458 print" taste ";chr$( 18)"b= balk 
engrafik und d= diagramm”;chr$( 146) 
468 print:print 

478 printtab( 18) "bitte waehlen sie 
!":print 

488 getm$:ifm$<>"b"andm$<>"d"then48 
[7] 3 

498 
s5na 
518 


ifm$="b"then518@ 

ifm$="d"then?1®8 

graphicil:scnclr 

528 char1,12,1,"”- balkengrafik - 

538 draw,82,170 to 318,170 

548 draw,6,25t019@,2@t014,25t019,20 

558 draw, 10,28 to 18,178 

568 draw,313,166t0318, 178t0313, 174t 

0318, 178 

579 box, 15,178,25,178-(a(1)), 

580 box,48,178,58,178-(a(2)), 

598 box,65,178,75,170-(a(3)), 

600 box,98, 178,188, 170-(al4)) 

618 box, 115,178, 125, 178-(a(5) 

62% box, 140,178, 158, 170-(al6) 

639 box, 165,178, 175,170-(al7) 

648 box, 190, 170,208, 178-(a(8) 
box,215,17®,225,178-(a(9) 
box,248, 178,258, 178-( al 18 

box,265, 179,275, 178-(a(11 

box,298, 178,388, 178-(al 12 

698 gosub918 

788 getkeym$:printchr$( 147) :graphic 

8:g0t0128 

718 printchr$( 147) :graphic1i:scnclr 

728 char1,12,1,” - diagramm - 

738 draw,@82,178 to 318,178 

748 draw,6,25t018,28t014,25t018,28 

758 draw,18,28 to 18,178 

768 draw,313,166t0318, 1700313, 174t 

0318, 170 

778 draw, 28, 178-(al1))to28, 178-(al1 

)J) 

788 draw,28,178-(al1))to45, 170-(al2 

J) 

798 draw,45,178-(a(2))to78, 178-(al3 

)) 

888 draw,?78,178-(al3))to95,179-(al4 

J) 

818 draw,95,178-(3(4))to128, 170-(al 

5)) 

828 

(6)) 

838 draw, 145, 1798-(a(6))to178, 178-(a 

(7) 

848 draw, 178, 178-(3(7))to195S, 178-(a 

(8)) 

858 draw, 195, 178-( a(8))to228, 178-(a 

(9)) 

868 draw,228, 178-(a(9))to245, 178-(a 


658 
668 
678 
688 


draw, 128, 178-(.a(5))to145, 170-(a 


ÄnmTZ—— rn ne 


Balkengrafik -— 


(-10)) 


2 


878 draw,245,178-( al 18))t0278, 178-( 


a(11)) 


888 draw,278, 178-( al 11))t0295, 178-( 


a(12)) 
898 gosub918 


988 getkeym$:printchr${ 147) :graphic 


9:g0t0128 
918 


return 
rem 
rem = 122365 
= 883412 
8989072 
0854697 
= 9064184 


BALKENGRAFIK 128 


Bei diesem Programm 


handelt es sich um ein An- 


wenderprogramm, da es 
dem Anwender ermög- 
licht, eine Mittelwert- und 
Summenberechnung 
durchzuführen. Veran- 
schaulichung der eingege- 
benen Werte bietet die 
Ausgabe einer Balkengra- 
fik und als weitere Wahl- 
möglichkeit die Diagramm- 
zeichnung auf dem 
Bildschirm. 

Es können 1 bis 12 Werte 
eingeben werden. 

Die Mittelwert und Sum- 
menberechnung erfolgt 
durch das Programm. In 
der gezeichneten Grafik 
wird die Werteeingabe 
ausgeführt, so daß der 
Werteverlauf ersichtlich 
ist. 

Die verwendeten Varia- 
blen A(1) — A(12) sind 
als Wertevariablen ge- 
wählt. Die Anweisungen 
‘BOX‘ sind für die Bal- 
kengrafik und ‘DRAW‘ 
für die Koordinaten sowie 


char1,1,22,str$(a(1)) 


char1,4,23,str$(a(?2)) 
char1,7,22,str$(.a(3)) 


char1,18,23,str$(a(4)) 
char1,13,22,str$(a(5)) 
char1,16,23,str$(a(6)) 
char1,19,22,str$(a(”?)) 
char1,23,23,str$(.a(8)) 
char1,26,22,str$(a(9)) 
char1,29,23,str$(al 18)) 
char1,32,22,str$(a( 11)) 
char1,35,23,str$(a(12)) 
char1,38,24,"<return> 


balkengrafik+diagramm==128 


bytes memory = 
programm 
variables = 
free (B) = 


free (1) = 


j) 


der Diagrammzeichnung. 
CHAR bietet die Möglich- 
keit der Textausgabe auf 
dem Grafikbildschirm 
und Einschreibung der 
Werte in die Bildschirm- 
grafik. 


FILETRANSFER 


Mit diesem Programm ist 
es möglich, Textdateien 
zwischen den Program- 

- men Easyscript und Text- 
O-Mat+ auszutauschen. 
Leider werden bei diesem 
Programm die Steuercodes 
für den Drucker nicht mit 
berücksichtigt, da dies 
wahrscheinlich den Rah- 
men dieses kleinen Pro- 
grammes sprengen würde. 
Außerdem fehlen mir in 
dieser Beziehung detail- 
liertere Unterlagen zu den 
beiden Programmen. 
Doch wäre es im Prinzip 
recht leicht nachzuvoll- 
ziehen. 

Ich habe mich darauf be- 
schränkt, sowohl die File- 
art, als auch das RETURN- 
Zeichen auf den jeweili- 


Filetransfer- ı — 
18 rem filetransfer =============64 
28 rem (p) 12/85 cbm revue team = 
38 rem ===================2========= 
48 rem (c) 3/86 by 

58 rem autor hermann wellesen = 
68 rem = 
78 rem version 1.8 4Adz/ascii = 
88 rem c-64 + 1541 floppy 

98 rem ===================2=2 === ==. 
188 rem 


118 poke53288,8:rem rahmenfarbe sch 
warz 

128 poke53281,8:rem hintergrundfarb 
e schwarz 

138 poke646, 15:rem zeichenfarbe hel 
lgrau 

148 poke788,52:rem run/stop sperren 
158 printchr$( 1479) :rem clear screen 
168 printchr$( 14) :rem kleinschrift 
ein 
178 
188 
198 
288 
218 
220 
238 
2408 


input”Dateiname 
n1$="x/"”+n$ 
print:print"Dateityp"” 
print:print”1) Text-o-mat” 
print"2) Easyscript” 

geta$ 
ifa$<"1"ora$>"2"then228 
ifa$="1"thenn$=1left$(n$+"” 


"n$ 


",15)+"T,p,r":n1$=n1$+",s,w" 
259 ifa$="2"thenn1$=1eft$(n1$+" 


“,15)+"T,p,w":n$=n$+"”,s,r" 

268 open2,8,2,n$ 

278 open3,8,3,n1$ 

288 get#2,z$ 

298 ifst<>dthenclose2:close3:end 
388 z=asc(z$+chr$(B)) 

318 printz$; 

328 ifa$="1"andz=95thenz=13 

338 ifa$="2"andz=13thenz=95 

348 print#3,chr$(z); 

358 g0ot0288 

368 rem 
378 rem 
388 rem 
398 rem 
4880 rem 
A418 rem 
428 rem 
438 
448 


filetransfer 
838911 bytes 
8812083 bytes 
vuna28 
[41517151077] 
2889072 
837688 


memory 
program 
variables === 
arrays 
strings 
free (B) === 


gen Filetyp anzupassen. 
Auf weitere Dokumenta- 
tion verzichte ich, da dies 


Programm kurz und für 
den Laien trotzdem noch 
recht überschaubar ist. 
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MIT DEM KOMPRESSOR 
SPEICHERPLATZ SPAREN 


Basicprogramme mit Basicprogrammen zu verändern 
ist im Prinzip ganz einfach. Hier wird dies an einem 
leicht verständlichen Basickompressor gezeigt. 


Jeder, der sich etwas 
mit Basicprogrammierung 
beschäftigt, kennt das: 
Schreibt man ein Pro- 
gramm, so helfen Kom- 
mentarzeilen, das Pro- 
gramm übersichtlicher zu 
gestalten. Auch zusätz- 
liche Leerzeichen machen 
das Programm leichter 
lesbar. Leider wird dieser 
Vorteil mit einem unnö- 
tig hohen Speicherplatz- 
verbrauch und einer mit 
der Länge des Programms 
verbundenen Verlangsa- 
mung erkauft. Daher ist 
es sinnvoll, das fertige 
Programm so weit als 
möglich zu komprimie- 
ren. Zuerst wirft man alle 
REM-Zeilen und die Leer- 
zeichen heraus. Schon al- 
lein dadurch kann man 
ein Programm oft um 
30-40 % verkürzen. Eine 
weitere Verkürzung er- 
reicht man durch Verlän- 
gern der Basiczeilen, in- 
dem man mehrere Zeilen 
hintereinanderhängt. Dies 
kann bis zu einer Basic- 
.zeilenlänge von 255 Byte 
geschehen, wobei hier die 
Länge der Zeile im Spei- 
cher und nicht auf dem 
Bildschirm gemeint ist. 
Auf dem Bildschirm kann 
eine solche Zeile noch 
länger werden, wenn viele 
Token wie GOSUB, 
PRINT vorkommen, die 
im Speicher ja als je 1 
Byte abgelegt sind. 

Als letztes bleibt noch 
eine Umnummerierung 
der Zeilen. Zum Beispiel 
braucht GOSUB6 nur 2 
Byte, GOSUB60000 je- 
doch 6 Byte. 

Wie all dies in Basic 
Programm übrigens bis auf 
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kann, soll hier beschrie- 
ben werden. Das Pro- 
gramm ist so aufgebaut, 
daß es möglichst ver- 
ständlich und übersicht- 
lich ist, ohne dadurch we- 
sentlich an Geschwindig- 
keit zu verlieren. Ferner 
können alle Einzelteile 
mit kleinen Änderungen 
getrennt in anderen Pro- 
grammen verwendet wer- 
den. Wie kann man nun 
Basicprogramme verän- 
dern? In der Regel be- 
ginnt das Programm in 
der Speicherstelle 2048 
(Basicanfang). Beim VC 
20 (für den dieses Pro- 
grmm übrigens bis auf 
den Wert von SB in Zeile 
32 und den SYS-Befehl 
in Zeile 134 unverändert 
übernommen werden 


Zwei Nullen 
signalisieren 
das Ende 


kann) liegt der Basican- 
fang in der Grundversion 
bei 4608, mit einer Er- 
weiterung ebenfalls bei 
2048. Dieser Wert ist in 
den Speicherstellen 45 
und 46 enthalten und 
kann mit PRINT PEEK 
(45)+256*PEEK(46)—1 

herausgelesen werden. In 
dieser Speicherstelle muß 
ene 0 stehen (sonst rea- 
giert der Computer auf 
NEW oder RUN mitSYN- 
TAX ERROR). Dann fol- 
gen in 2049 und 2050 
der Linkpointer (oder 
Koppeladresse) der näch- 
sten Zeile und in 2051 
und 2052 das LO-Byte 
und das HI-Byte der Zei- 
lennummer. Danach folgt 


"lennummer 


die eigentliche Basiczeile, 
welche wieder mit einer 0 


abgeschlossen ist. Dann. 


wieder Linkpointer, Zei- 
... So geht es 
weiter, bis das Programm 
zuende ist. Man erkennt 
dies an zwei Nullen an- 
stelle eines neuen Link- 
pointers. 


Endprodukt 
kleiner als 
Quellprogramm 


Um nun ein Programm 
durch ein anderes zu ver- 
ändern, müssen beide im 
Speicher stehen. Hierzu 
lädt man das zu verän- 
dernde Programm und 
setzt dann den Basican- 
fang hoch mit: 

PRINT PEEK(46)+1 
(Diese Zahl merken:=A) 
POKE 44,A:POKE A* 
256,0:NEW 

Jetzt den Kompressor la- 
den und starten. Das Pro- 
gramm fragt zuerst nach 
der maximalen Bytezahl 
pro Zeile. Gibt man hier 
0 an, so werden nur die 
Remarks und die Leer- 
stellen entfernt (ohne auf 
GOTO ... zu prüfen!). Die 
maximale Zahl ist 255. 
Dann sind die Zeilen zum 
Teil nicht mehr veränder- 
bar, wenn sie mehr als 80 
Zeichen haben. Will man 
dies nicht, so kann man 
60 angeben. Das weitere 
macht dann das Pro- 
gramm. Wie es das macht, 
soll nun im einzelnen für 
jeden Teil extra erklärt 
werden: Variablenliste 
und Subroutinenbiblio- 
thek (Zeile 54 — 142). 
Was die Subroutinen im 
einzelnen machen, wird 
durch die REM-Zeilen er- 
klärt. Näheres dazu noch 
an den Stellen, wo sie 
gebraucht werden. Hier 


soll nur noch einmal dar- 
auf hingewiesen werden, 
daß häufig gebrauchte 
Unterprogramme am An- 
fang stehen sollten, da ja 
immer vom: Anfang her 
danach gesucht wird. 
REM und BLANK ent- 
fernen (Zeile 152 — 186): 
Dies ist noch die leich- 
teste Übung. Zuerst muß 
berechnet werden, von 
wo bis wo die eigent- 
liche Basiczeile geht (AB, 
EB in GOSUB 54). Nur 
innerhalb dieser Werte 
darf nach dem Code für. 
REM (143) bzw. SPACE 
(32) gesucht werden. Fer- 
ner müssen die Codes in- 
nerhalb von Anführungs- 
zeichen überlesen werden. 
Man kopiert also das 
ganze Programm einmal, 
wobei es’ wieder bei 2048 
beginnt und man die 
REM und SPACE einfach 
‚übersieht‘. LV dient da- 
zu als Laufvariable und 
zeigt immer auf die Stel- 
le, wo das neue Programm 
gerade weitergeschrieben 
wird. Da das Endprodukt 
kleiner ist als das Quell- 
programm, ergeben sich 
durch das Überschreiben 
keine Probleme. Natür- 
lich muß die Zeilennum- 
mer wieder an die richti- 
ge Stelle (NM+3, NM+4): 
gepoket werden und die 
Linkadresse neuberech- 
net (GOSUB 70) und ein- 
gepoket werden (NM+1, 


. NM+2). Wird das Pro- 


grammende gefunden, 
müssen die entsprechen- 
den Nullen gesetzt wer- 
den. Nach der gleichen 
Methode kann man sich 
auch andere Möglichkei- 
ten ausdenken, wie zum 
Beispiel lange Variablen- 
namen auf 2 Stellen kür- 
zen oder Listschutzcodes 
(SHIFT/L = 204) entfer- 
nen. Man muß nur darauf 
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achten, daß das Pro- 
gramm dadurch nicht län- 
ger wird. Wenn es länger 
werden soll, muß man 
dies entsprechend berück- 
sichtigen. 


AUFSPRUNGADRES- 
SEN UND IF UNTER- 
SUCHEN (Zeile 196 — 
232): 


Will man zwei Basiczei- 
len miteinander verket- 
ten, so muß vorher geprüft 
werden, ob die erste kein 
IF oder GOTO und die 
zweite nicht durch GO- 
TO, GOSUB oder THEN 
angesprungen wird. Die 
entsprechenden Zeilen 
müssen dann in GS(n) ge- 
sperrt werden. Will man 
diesen Teil ohne den 
REM-Killer verwenden, 
muß auch noch auf REM 
(143) untersucht werden. 
Kommt hinter einer Zei- 
lennummer nach GOTO 
oder GOSUB ein Komma, 
so wird nach einer weite- 


ren Zeilennummer ge- 
sucht (ON-Anweisung). 
Dieser Programmteil 


könnte zum Beispiel in 
einer Dokumentationshil- 
fe verwendet werden. 


SUPERZEILER 
(Zeile 240-278) 


Dieser Teil des Pro- 
gramms ist für sich alleine 
betrachtet eigentlich am 
interessantesten. Mit ein 
paar Änderungen kann 
man ihn unabhängig vom 
Rest verwenden, um be- 
liebige Basiczeilen mitein- 
ander zu verknüpfen. 
Von den Unterprogram- 
men werden nur die Zei- 
len 128-134 und die 
Zeile 140 gebraucht. 
Zuerst die Änderungen: 
Folgende Zeilen bitte 
weglassen: 

248, 262—266, 270. 

Folgende Zeilen bitte 
abändern: 

246 IF EB(0 THEN GO- 
TO 280 

260 IF I-AB AND C= 
174 THEN LV=LV-4: 
POKE NM,58: GOTO 274 


oDRBUnN-B8 


Superzeiler 


rem (c) 
rem 
rem 


nb=2848:nm=nb 


peek( nb+2)-2 
18 


remt#rrxr222%2 superzeiler 
1985 rudolf schmid-fabian 


Bart 


postfach 185827 
6988 heidelberg 


remftrtrttrrereerreoherete ini 


lv=nm+4:ab=nb+5:eb=peek( nb+1) +256 


if eb<® then goto 188 
12 pokenm,®:pokenm+1,1:pokenm+2, 1 
16 1z=peek{ nb+3) :pokenm+3,1z 


28 
24 
28 
32 
pokenm,58:g0t048 


hz=peek({ nb+4) :pokenm+4,hz 
print"zn="1z+256*hz 
fori=abtoeb:co=-peek(i) 

if i=sab and co=174 then lv=1v-4: 


36 lv=1v+1:pokelv,co 


48 next 


aa nb=eb+1:nm=1v+1 


48 gotoß 


188 pokenm, ®:pokenm+1,8:pokenm+t2,® 
118 ha=int( (nm+3) /256) :la=( nm+3) -ha 


#256 


128 print"Sqgqqpoke44,8:poke45,";:pr 
intla; :print":poke46,";:printha 
138 print"qggysys42291:1lists" 


149 end 


Folgende Zeilen bitte um- 
nummerieren: von 128— 
140 nach 280-288. 
Nachdem der Superzei- 
ler abgespeichert ist, lädt 
man das zu verändernde 
Programm. An den An- 
fang jeder Zeile, die man 
mit der vorhergehenden 
verketten will, 
man (in den Zwischen- 
raum nach der Zeilennum- 
mer) einen Pfeil nach 
oben , ? ‘. Dann wird 
wieder, wie am Anfang 
beschrieben, der Basic- 
anfang hochgesetzt, der 
Superzeiler geladen und 
gestartet. Der allgemeine 
Aufbau ist ähnlich wie 
beim REM-Entfernen. 
Bemerkenswert ist die 
Betriebssystemroutine 
SYS 42291 (beim VC20 
SYS 50483), welche die 
Basiczeilen neu bindet 
(die Koppeladressen wer- 
den neu berechnet). Hier- 
zu müssen natürlich der 
Basicanfang und das Ba- 


schreibt 


sicende wieder herunter- 
gesetzt werden. Die ent- 
sprechenden Adressen für 
die Pokebefehle werden 
errechnet und auf dem 
Bildschirm ausgedruckt. 
Nun kommt der ‚pro- 
grammierte Direktmo- 
dus“ zum Einsatz: Die 
Befehle werden so am 
Bildschirm ausgeben, daß 
der Cursor, wenn er wie- 
der sichtbar wird, auf 
der Befehlszeile steht. In 
den Tastaturpuffer (631— 
640) wird der RETURN- 
Code (13) gepoket und 
eine der Anzahl der Be- 
fehlszeilen entsprechende 
Zahl in 198 gepoket. Er- 
reicht das Programm nun 
einen END-Befehl, wird 
der Tastaturpuffer abge- 
arbeitet und die Befehle 
ausgeführt. 

Wenn Sie den Basic- 
kompressor als Ganzes 
verwenden, fragen Sie 
sich vielleicht, wie es nun 
weitergeht. Dies ist in der 


Tat nicht ganz trivial. 
Nachdem der Interpreter 
uns die Arbeit mit dem 
Berechnen der Koppel- 
adressen abgenommen 
hat, muß ja wieder auf 
den oberen Speicherbe- 
reich umgeschaltet wer- 
den (Zeile 136) Danach 
steht der Cursor auf ‚GO- 
TO 286:REM RENUM- 
BER‘ und wartet darauf, 
daß Sie RETURN drük- 
ken, um mit dem Renum- 
ber fortzufahren. Wollen 
Sie die Zeilen nicht neu 
numeriert haben, so fah- 
ren Sie einfach mit dem 
Cursor auf die erste Poke- 
Zeile, drücken RETURN 
und haben nun Ihr kom- 
primiertes Programm. 


LAST BUT NOT LEAST 
— RENUMBER_ (Zeile 
286-340): 


Wenn Sie diesen Teil 
des Kompressors getrennt 
verwenden wollen, müs- 
sen Sie die verwendeten 
Unterprogramme natür- 
lich mit eingeben. Da es 
für einen Kompressor 
nicht sinnvoll ist, die Zei- 
lennummern zu erhöhen, 
wurde dieser Programm- 
teil so ausgelegt, daß 
nachher nur kleinere Zei- 
lennummern vorkommen. 
Sollen die Zeilennum- 
mern aber nicht mit 1 
beginnen, so kann der 
Wert für SZ in Zeile 294 
entsprechend erhöht wer- 
den. Dabei achten Sie bit- 
te darauf, daß die Zeilen- 
nummern nicht größer als 
vorher werden, da das 
Programm sonst über- 
schrieben wird (größer 
bedeutet hier mehr Zei- 
chen). Wollen Sie sich je- 
doch ein ‚perfektes‘ Re- 
number selbst program- 
mieren, können auch grö- 
ßere Zeilennummern (als 
vorher) erreicht werden, 
indem das Programm zu- 
vor mit einer POKE neu, 
PEEK(alt)-Schleife oder 
eleganter mit der Block- 
verschieberoutine zu hö- 
heren 
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hin verschoben wird. Dies 
muß natürlich von hinten 
nach vorne geschehen 
und das Renumberpro- 
gramm muß noch weiter 
hinten im Speicher ste- 
hen. (Beispiel: Das Quell- 
programm ist 4 KByte 
lang und soll um 1 KByte 
verschoben werden. Dann 
muß der Baiscanfang auf 
2048+(4+1)*1024=7168 
=28*256 verschoben wer- 
den. Dies macht man am 
besten durch. POKE 44, 
28: POKE 28*256,0: 
NEW.) 

Vielleicht sind zur Ar- 
beitsweise des Renumber- 
Programms noch ein paar 
Anmerkungen interessant. 
Will man Zeilennummern 
neu berechnen, so muß 
man zunächst die Anzahl 
der Zeilen bestimmen 
und die Zeilennummern 
der Reihe nach in NR(n) 
einsortieren (Zeile 288- 
292). Danach sucht man 
im Programm nach GO- 
TO (137), GOSUB (141) 
und THEN (167) und 
den darauffolgenden Zei- 
lennummern. Diese müs- 
en dann ersetzt werden 


(GOSBU 122). 


DER KOMPRESSOR 
TESTET SICH SELBST: 


Nachdem Sie das Pro- 
gramm abgetippt und ab- 
gespeichert haben, wollen 
Sie sich sicher davon 
überzeugen, ob, es auch 
ohne Fehl und Tadel ist. 
Dazu schalten Sie sicher- 
heitshalber den Compu- 
ter kurz aus und wieder 
ein und laden den Kom- 
pressor. Dann setzen Sie 
den Basicanfang wie oben 
beschrieben hinter das im 


Speicher befindliche Pro- 
gramm und laden den 
Kompressor noch einmal. 
Starten Sie den Kompres- 
sor und geben für die 
maximale Bytezahl 255 


. ein und warten ungefähr 


4 Minuten. Dann RE- 
TURN in der GOTO ... — 
Zeile drücken und weite- 
re 2 Minuten warten. 
Jetzt ist der im unte- 
ren Speicherbereich be- 
findliche Kompressor 
komprimiert. Um ihn ab- 
speichern zu können, fah- 
ren Sie bitte mit dem 
Cursor nach oben bis zur 
1. Befehlszeile, drücken 
RETURN und speichern 
den Kompressor ab. Mit 
diesem verdichteten 
Kompressor komprimie- 
ren Sie jetzt den unverän- 


derten und vergleichen: 


dann die beiden verdich- 
teten Programme durch 
VERIFY miteinander. 
Das hört sich etwas um- 
ständlicher an als es ist. 
Ausprobieren! Sie wer- 
den Staunen, um wieviel 
kleiner das Programm 
wird. 

Übersichtlich geschrie- 
bene Programme werden 
um 40-50 % kürzer. Die 
oft bei Basickompresso- 


ren versprochene Be- 
schleunigung des Pro- 
gramms hängt jedoch 


stark vom Programmier- 
stil ab. Ein Programm, 
welches optimal auf Ge- 
schwindigkeit geschrie- 
ben ist, wird nur um un- 
gefähr 10 % schneller. 
Aber das ist doch auch 
schon was. Der Haupt- 
nutzen liegt jedoch darin, 
daß man Speicherplatz 
und damit auch Ladezeit 
einspart. 


Nutzen Sie 
unseren 
Anzeigen 


service 


18 
12 
14 
16 
18 
28 
22 


23 
24 


rem basickompressor ==>========= 
(p) cbm revue team = 


(c) 83/86 r. schmid-fabian= 
c-64 = 
rem ========>=====2=-=-=22=2==2=2 == === 
el$=chr$( 147): c4$=chr$( 17) 

p1$=c1$+c4$+c4$+c4$:ho$=chr$( 19) 
p2$=c1$:for i=1t0o13:p2$=p2$+c4$: 


next 


FRANCHISE HEUEHEHENEE 


variablenliste #rrxrt#t# 
rem FRAUEN 


rem 
rem ##+#t+ 


ce=d:rem codezahl im speicher 


38 1v=8:1m=-®:rem laufvariable zum k 
opieren/max. bytes pro zeile 
32 nb=2848:nm=nb:rem nulladr. d. ba 


siczeile vorh./nachh. 


34 
36 


zn=8:1z=8:hz=®:rem zeilennummer 
ab=-®:eb=®:rem anfang/ende basicz 


eile 


38 mz=388:nz=®8:1z=®:rem max. 
anzahl/nr.d.zeile/laenge d. 


408 


zeilen 
zeile 
dim nr(mz) ,‚gs(mz+1):rem zeilennu 


mmer/zeilennr. gesperrt 


42 
44 


54a 


goto 142 
rem HRRRRRERRRRRORRRRIEIIRSEIE SEE 


rem subroutinen bibliothek *###* 
rem ZRH 
rem basicanfang und -ende #*#+## 
rem und zeilennummern ##tz#3213 
rem FRHRHAESSRRRE RAR AR RRI N 


lv=nm+4:ab=nb+5:eb=peek( nb+1) +25 


6*peek( nb+2)-2:hk=® 


56 
58 
68 
62 


64 


if eb<®8 then return A 
lz=peek(nb+3) :hz=peek( nb+4) 
zn=1z+256*hz :printho$"zn="zn 
nz=nz+ti:nr(nz)=zn 


if nz+1>mz then print"mz zu klei 


n!":end 


66 


return 

rem ##neue adresse berechnen##* 
ad=1v+2 . 
ha=sint( ad/256) :la=ad-ha#256 
pokenm,®:pokenm+t1,la:pokenm+2,ha 
nb=eb+1:nm=lv+1:return 

rem #*# goto,gosub Hrn 
z$="" 

for s=1 to 6:sc=peek(its) 

if sc=44 then 92:rem komma 

if sc=58 then 92:rem doppelpunkt 
if sc=® then 92:rem zeilenende 
z$=z$+chr$( sc) :nexts 
s=s-1:w=val(z$) :gosub114:gs(t)=1 
if um=-1 then return ‘ 
if sc=44 then gs({nz+1)=1:i=i+s+1 


Basickompressor 


:goto 88 

98 return 

188 rem then FHansuaeseneuunuene 
182 i=i+1:c=peek(i):if i=eb then re 
turn 

184 if c=32 then 1892 

186 if c=137 or c=141 then gosub 88 
:return 

188 if c>47 then if c<S8 then i=-i-1 
:gosub 88 

118 return 

112 rem zeilennr. 
114 for t=1 to mz 
116 if w=nr(t) then return 

118 next:t=®:return 

128 rem zeilennr. ersetzen ###xtrx 
122 z$=str$lt+sz):for ii=2 to len(z 
$) :a=asc(mid$( 2$,ii,1)) 

124 l1v=1v+1:pokelv,a:next 
ii:j=-its:return 

126 rem *#programm beenden#####x3#3% 
128 pokenm,B:pokenm+1,®8:pokenm+2,® 
138 ha=int((nm+3) /256) :la=( nm+3) -ha 
256 

132 printp1$”"poke44,8:poke45,";:pri 
ntla; :print"”":poke46,"; :printha 

134 printc4A$cA$”"sys42291" 

136 printc4$c4$"poke43,”; :printpeek 
(43) ;:print”:poke44,"; :printpeek( 44 
); 

138 print”:poke45,"; :printpeek(45); 
:print"”:poke46,"; :printpeek( 46) :pri 
ntho$ 

148 :poke631, 13:poke632, 13:poke633, 
13:poke198,3:end 

142 printcl$:input"”maximale bytezah 
1 pro zeile"”; 1m 

4144 rem HKHasuesetererereieeeee 

146 
148 


suchen in nr( )* 


rem rem und blank entfernen 

rem zeilennummern eintragen 

158 rem Hirtttatststttgh ss ee 

152 printcl$c4$"*#***#* erster durc 
hlauf Fua##eestaeeneee" 

154 nb=2848:nm=nb:nz=® 

156 gosub S54A:rem anfang,ende berech 
n. 

158 pokenm+3,1z:pokenm+t4,hz:rem zei 
lennr. 

168 if eb<® then pokenm,®:pokenmt1, 
B:pokenm+?2,8:goto 196 

162 for i-ab to eb:c=peek(i) 

164 if c=34 then if hk=B then hk=1: 


goto 178 

166 if c=34 then if hk=1 then hk=B: 
goto 178 

168 if hk=1 then 1978 :rem in anfueh 
| su 

138 if c=32 then 188 :rem blank 


172 if c<>143 then 178 

174 if peek(i-1)=58 and i>ab then 1 
v=lv-i:rem doppelpunkt vor rem entf 
ernen 

176 i=eb: goto 188 

178 l1v=1v+1:pokelv,c:rem kopieren 
188 next i 

182 if hk=1 then 1v=1v+1:pokelv,34 
184 gosub 7®8:rem neue adresse 

186 goto 156 

188 rem Haase 

198 rem ## auf sprungadr. u. if 

192 rem ###### untersuchen #### 

194 rem WRRRARRRARRRRSHRNSRRE 


196 print”"***#### zweiter durchlauf 
IHRER" 


198 if l1m=-8 then 248 

288 nb=2848:nz=8 

282 ka=peek( nb+1) +256*peek( nb+2) 
284 if ka=8 then 248 

286 ab=nb+5:eb=ka-2:nz=nz+1:printho 


$"nz="nz 
288 for i=ab to eb:c=peekl(i) 
218 if c=34 then if hk=8 then hk=1: 


goto 228 
212 if c=34 then if hk=1 then hk=B: 
goto 228 
214 if hk=1 then 228 :rem in anfueh 
r.z. 


216 if c<137 then 228 
218 if c=143 then i=eb: 
em remarks 

228 if c=137 then gosub 8®8:gs(nz+1I) 
=1:goto 228:rem goto 

222 if c=141 then gosub 88:poto 228 
:rem gosub 


goto 228 :r 


.n 


224 if c=139 then gs(nz+1)=1:goto 2 
28:rem if 

226 if c=167 then gosub 182:rem the 
228 next i 

238 nb=ka-1 

232 goto 282 

234 rem HR esheteeeteeinee 

236 rem superzeiler ##H#tt#=tr4% 

238 rem #Hrıtstseranseeeeatureigen 


248 print"****=# dritter durchlauf 


14.»2» KUN HOH zı2%2% „ 


242 nb=2048:nm=nb:nz=B:gs( 1) >=1 
244 1v=nm+4:ab=nb+5:eb=peek( nb+1) +2 
S5S6*peek( nb+2)-2:nz=nz+1 

246 if eb<® then printp2$"goto2B6:r 
em renumber ":goto 128 

248 if eb<ab then 1v=1v-5:sp=1:goto 
276 

258 pokenm,8:pokenm+1,1:pokenm+2, 1 
252 1z=peek{ nb+3) :pokenm+3,1z 

254 hz=peek(nb+4A) :pokenm+4,hz 
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Besickompressor 3 


Demo 


256 
258 
268 
262 
264 


printho$"zn="1z+256*hz 

for i=ab to eb:c=peek(i) 

if i>ab then 272 

if sp=1 then sp=®:goto 272 

if 1m=8 then 272 

266 if gs(nz)=1 then 272 

268 zl=zl+teb-ab+5:if zl>1m then zl= 
®8:g0t0272 

278 lv=1v-4:poakelv,58 
272 lv=1v+1:pokelv,c 
274 next 

276 nb=eb+1:nm=1v+1 

278 goto244 

280 rem Hraxrnsnseeunensenge 
282 rem renumber *#xazz22x 
284 rem Hrusnaesunaseunenen: 
286 printcl$co4$"szzxz= % 
hlauf ##txetesserereeege 

288 nb=2048:nm=nb:nz=®:um=1 

298 gosub 54:if eb<® then 294 

292 nb=eb+1:nm=nb:g0t0298 

294 nb=2848:nm=nb:nz=9:sz=®:1b=sz+1 
:hb=8 u 

296 gosub 

54:pokenm+3, 1b:pokenm+4,hb:rem anfa 
ng,ende berechn.,zn einsetzen 

298 1b=1b+1:if 1b=256 then 1b=®:hb= 
hb+1 

388 if eb<® then printcl$:goto 128 
382 for i=ab to eb:c=peek(i) 

304 if c=34 then if hk=® then hk=1: 


goto 338 
306 if c=34 then if hk=1 then hk=8: 
goto 338 
388 if hk=1 then 330 :rem in anfueh 
r.Zz% 


318 if c<>137 and c<>141 then 320:r 
em goto,gosub 


312 lv=lv+1:pokelv,c:gosub 88 

314 gosub 122:rem zeilennr. ersetzen 
316 if sc=44 then c=44:i=i+1:goto 3 

12 

318 goto332 

328 if c<>167 then 338:rem then 

322 lv=1v+1:pokelv,c 

324 i=i+t1:c=peek(i) :if c=32 then 32 

4 

326 if c>47 then if c<58 then i=i-1 


:gosub 8B:gosub 122:g0t0332 

328 if c=137 or c=141 then 1lv=1v+1: 
pokelv,c:gosub 88:gosub 122:g0t0332 
338 lv=1v+1:pokelv,c:rem kopieren 
332 next i 

334 if hk=1 then 1lv=1v+1:pokelv,34 
336 gosub ?®:rem neue adresse 

338 goto 296 

348 fori=2848t02865:printi,peek(i): 
next 


34 


8 goto5® 


1 212. .nMm 


FERHHR superzeilerf#ttrteztzeneıer 
2 :der superzeiler kann zeilen bis 


gesetzt 


werden. dabei muss man::::darauf a 


chten, dass die erste zeile 

5 :kein rem oder if enthaelt und di 
e::::::7Zweite nicht durch goto, go 
sub, on..:::angesprungen werden sol 
l.:: 2: rrermeeeerereeo) 

1985 rudolf schmid-fabian:::::::::: 
ı:zzrpostfach 10850297 ::::::: 2:22:22 2:2: 
ırı22227276908 heidelberg:::::::::: 


"58 nb=2848:nm=nb 


68 lv=nm+4:ab=nb+S:eb=peek( nb+1) +25 
6#peek(nb+2)-2:if eb<® then goto 18 
4) 

80 pokenm,B:pokenm+1,1:pokenm+2,1:1 
z=peek(nb+3) :pokenm+3, 12:hz=peek( nb 
+4) :pokenm#+4,hz:print"zn="1z+256*hz 
:fori=abtoeb:co=peek(i):if i=ab and 
co=174 then lv=1v-4:pokenm,58:goto 
158 

148 l1v=1v+1:pokelv,co 

158 next:nb=eb+1:nm=1v+1:g0t068 

180 pokenm, ®:pokenm+1,8:pokenm+2,0: 
ha=int((nm+3) /256) : la=( nm+3) -ha#256 
:print"Sqggpoke44,8:poke45,";:print 
la; :print":poke46,"; :printha; :print 
"QRR": end 
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ANZEIGENSERVICE 


Die große .Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post— Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daßwir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn. deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen a 28 Anschläge. Für it Anbieter: 5 DM p. mm. 


en 


BEREIT EBBENSEEEEESEER = 
ERNSRERDERDERAAER BEE EEE I EEE EU I EU 
DEZBIBRRREESSRRBERENE 


a a 


Anzeigenabteilg. 
Postfach 1107 Straße/Hausnr. 
8044 Lohhof PLZ/Ort 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 


umschlag stecken und abschicken. So einfach geht. 


das. Wollen Sie das Heft.nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte. mit Druckhbuchstaben oder in 
Schreibmaschinenschrift! 


Und: Einschließlich Ihrer Adresse und/oder Tele- 


fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 


ACHTUNG: WICHTIGER HINWEIS! 


Wir veröffentlichen nur Kleinanzeigen privater In- 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

‘Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab- 
hängig! 

Wir behalten uns. vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu- 
läßt. 
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PROGRAMMSERVICE 


Hiermit bestelle ich 


die Listings dieses Heftes auf 


D Kassette (10DM) D Diskette (25 DM) 


Zutreffendes bitte ankreuzen! . 
Ich zahle: 
per beigefügtem Scheck / Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 
Meine Bank (mit Ortsname) 


Meine Kontonummer .. 2.222 22er 
Meine Bankleitzahl... . oo cn eeeeeeceeen 


Vorname... onen Nachname ee ne ER a ee Were A ehe f PERERFR EN 


SUN rat PEZT OR an es 
Hiermit bestätige ich, Ihre Verkaufsbedingunen gelesen zu haben und zu akzeptieren. (3) 


UNterschilt ea e neenise 
Bitte ausschneiden und einsenden an 

COMMODORE-WELT 

KASSETTENSERVICE 5/86 

Postfach 1107 

8044 Unterschleißheim 


LESER WERBEN LESER 


GEWINNEN SIE EINE 
COMPUTER UHR! Und zu- 
sätzlich eventuell noch ein 
großes Commodore-Buch. 
Oder ein Paket Disketten. 
ODER AUCH EINEN 
COMMODORE-DRUCKER 
— ODER EINE DISKET- 
TENSTATION! Wie? Sie 
werben einen Abonnenten. 
Dann haben Sie auf jeden 
Fall schon die Computer- 
Uhr gewonnen. Zusätzlich 
verlosen wir unter allen, 
die mitmachen, jeden Mo- 
nat vier weitere wertvolle 
Preise. Und alle sechs Mo- 
nate 'gibt es einen Haupt- 
preis unter allen Abo- 
Werbern zu gewinnen. Al- 
so: Mitmachen. Mitgewin- 
nen. 


Ja, ich mache mit beim 
Abo-Wettbewerb. Ich habe 
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Herrn/Frau.....2sncseannannnae 
Straße/Hausnr. ......0..... R 
PLZION aan Pr 


als neuen Abonnenten’ der 
COMMODORE WELT 
geworben. 


Der neue Abonnent war bis- 
her noch nicht Bezieher die- 
ser Zeitschrift. 

Als Prämie erhalte ich nach 
Eingang des Abo-Entgeltes 
auf jeden Fall eine Com- 
puter-Uhr, wie abgebildet, 
und nehme zusätzlich noch 
an der Verlosung des Mo- 
nats sowie der halbjährli- 
chen Hauptpreise teil. Mir 
ist bekannt, daß der Rechts- 
weg bei den Verlosungen 
ausgeschlossen ist. 

Meinen Preis senden Sie an 


Name ....nnnnnnaaennnnennnnunn 
Straße/Hsnr. j PERF BEE 
PEZ/ORH =... 


(Bitte ausschneiden und zu- 
sammen mit der Abobestell- 
karte unten einsenden!) 


uw 


ww TER 
“ 
“ 

3 

3 


w > 
m u 


VC 20 4964 :: 128 BE 
VC 2ER C 64: 124 
Rund Anwender- 
150 Programme 


iten |__ Utilities 
Baiten, Schul-Programme 


TIPS + Spiele 
TRICKS Adventures 


Rund 150 -Seiten, voll mit Listings, Service, Tips und Tricks. Ein Muß für jeden Commodore-User, ob 
mit dem VC 20 oder dem 128 — selbstverständlich erst recht für den 64er Fan! 


RESERVIERUNGS-KARTE 


Bitte senden Sie mir ( ) Exemplar(e) 
COMMODORE-WELT SPECIALNTr. 1/86 
zum Preis von DM 14,80 

Ich zahle 

( ) Per beigefügtem Scheck * 

( ) Per Bankabbuchung am Versandtag* 


COMMODORE nam 
WELT | 


Straße/Hausnr. = BRAR BR 


Reservierungs- v2 
Service Bei Bankabbuchung: 


to-Nr.: . Bankleitzahl ® 


Postfach 1 107 _ (Bank und Ort) 
8044 Lohhof Unterschrift PORN ONE SCHEN TRSEEN SBILENGDENSCERS TECHN REN 


Ausschneiden und einsenden 


* = Abbuchung erst am Versandtag! 
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Ei 


20/64/128 


Das unabhängige Commodore- Magazin 


WICHTIGE RECHTLICHE 


KOMMT REGELMÄSSIG ZU IHNEN INS HAUS 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr”’ 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 30 DM liefern wir Ihnen per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein ausschneiden — fotokepieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
DORE-WELT kommt dann pünktlich ins Haus. 


GARANTIE! 


Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für sechs Ausgaben, 
wenn ihm- nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 
ABO SERVICE-KARTE 


Coupon 


Ja, ich möchte von Ihrem Angebot 


Gebrauch machen. 
Bitte senden Sie mir bis auf Wider- 


ruf ab sofort jeweils die nächsten 


Name 
Ich nehme zur Kenntnis, Vorname 
daß die Belieferung Straße/Hausnr. 
Plz/Ort _ 


erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


Ich bezahle: 
D) gegen Rechnung 


bei (Bank) und Ort 
Kontonummer 


sechs Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo- 


chen vor Ablauf kündige, läuft 
diese Abmachung automatisch 
weiter. 


(5) 


DO per beiliegendem Verrschnungsscheck 


Ü bargeldios per Bankeinzug von meinem Konto 


COMMODORE :ankeitzani 
(steht auf jedem Kontoauszug) 


Unterschrift 


Von meinem Widerspruchsrecht 


WELT 


Abo-Servie 5/86 


Postfach 1107 


8044 UNTERSCHLEISSHEIM Unterschrift 


‚38 


habe ich Kenntnis genommen. 


Mixed Datei > 


1ı16& 


MIXED 


1616 


Als erstes erfolgt die 
Auswahl zwischen einer 
reinen Textdatei oder ei- 
ner gemischten Zahlen/ 
Textdatei. 

Nach Erscheinen des 
Menüs können folgende 
Unterprogramme aufge- 
rufen werden: 

Neue Datei eingeben 
Speichern einer Datei 
Bestehende Datei laden 
Anfügen an bestehende 
Datei 

Daten auf Bildschirm 
Print (Daten auf Drucker) 
Löschen der Daten 
Umschalten zur Zahlen- 
Text-Datei 

Ende i 

Nach Aufruf des Mo- 
dus >Neueingabe< er- 
folgt die Abfrage >Datei- 
name<. Nach Ende Daten 
speichern, falls nötig, 
Datendisk einlegen. 

Menüpunkt >Spei- 
chern einer Datei<: Soll- 
te es Probleme beim 
Abspeichern der Datei 
geben, wird automatisch 
eine Disk-Fehlermeldung 
in Klartext gedruckt. Me- 
nüpunkt >Daten laden<: 
Nach Abfrage des Datei- 
namens erfolgt entweder 
eine Übernahmebestäti- 
gung oder eine Disk-Feh- 
lermeldung in Klartext. 

Bei der allgemeinen 
Textdatei sind Komma, 
Semikolon, Doppelpunkt, 
Anführungsstriche zur 
Eingabe erlaubt. 

Menüpunkt >Anfügen 
an eine bestehende Da- 
tei<: Sind keine Daten 


im Speicher, informiert 
der Computer darüber. Es 
wird bei bestehenden Da- 
ten die Anzahl angezeigt, 
um weitere Daten anzu- 


" fügen. Eingabe mit >*< 


beenden. Danach Abfrage 
>Daten speichern?<, 
falls nötig, Datendisk ein- 
legen. 


Menüpunkt >Daten 
auf Bildschirm<: Abfrage 
>Einzelschritte per Ta- 
stendruck oder angezeigt, 
Eingabe beenden mit >*< 

Menüpunkt>Drucken< 
Nach Aufruf dieses 
Programmteils ist zur 
Druckeranpassung die 
Änderung der Sekundär- 
adresse möglich. Drucker 
einschalten nicht verges- 
sen, sonst Programmab- 
sturz! 


Menüpunkt >Löschen 
der Daten<: Nach einer 
Sicherheitsabfrage sind 
dann die Daten unwider- 
bringlich futsch und der 
Arbeitsspeicher geleert. 


Menüpunkt >Umschal- 


ten zur Zahlen und Text- 


datei< (Oder umgekehrt): 


Nach Anzeigen des Zwi- 
schenmenüs Text- und 
Zahlendatei sind folgende 
Auswahlpunkte möglich: 
Neueingabe 

File laden 

File speichern 

File anzeigen 

File addieren 

File erweitern 
Druckerroutine 

Ende 

Umschalten auf Textdatei 


18 rem mixed datei ===>===-=>======016 
28 rem (p) 84/86 commodore-welt bw= 
38 rem =========- == ===2=====2 === 20-2: 
48 rem (c) B1/86 by 

5% rem harald beiler = 
68 rem 

78 rem version 3.5 48z/ascii = 
88 rem c16/p4 + 1538/1541/drucker = 
98 rem ========-=-==2==2=====2=2=-====20== = 


188 color 8,1:color4,1:color1,14:sc 

nelr:printchr$( 14) chr$( 11) chr${ 27)c 

hr$( 69) 

118 char1,4,5,"T = 
ehe re a kn | 

128 char1,4,7,"7 = 

+ Addition", 1 

138 char1,8,18,"Bitte druecken Sie 

entsprechende Taste!":print 

140 getkeya$ 

158 ifa$<>"t"anda$<>"z"then14® 

ifa$="t"thengosub 189:g0t0248 

ifa$="z"thengosub 188:g0t01899 
ed ee 

Bea u ":rem 39 leerzeichen 

dZ$="HHH, AH. HH" 

ze=18009:dima$( ze) :n=1888:dimn(n 

):return 

218 rem #ra@ssuenenuerersaeungee 

220 rem #r#xreeenaeneeree titel # 

230 rem Hrasmerenerentenrenengunge 

240 gosub1839:char1,8,3, "Allgemeine 
Text Datei", 1:print:gosub668 

258 char1,2,6,"Eingabe: Dateiname o 

der Nummer" :print:char1,11,7,"die 

Daten" :print:gosub66 

268 char1,2,18,"(Alle Eingaben auss 

er Anfuehrungs-":print 

278 char1,2,11,"zeichen sind erlaub 

t !)":print:gosub669 

288 char1,12,18,"M = 

rint 

298 getkeya$:ifa$="m"then3@M:else:g 

002989 

388 sencelr:gosub698:gosub1138 

318 getkeyq$ 

328 ifq$="n"g0oto4508 

338 ifq$="h"g0ot01230 

348 ifg$="b"goto980 

358 ifq$="d”goto969 

368 ifgq$="a"goto1560 

378 ifq$="e"thenend 

388 ifg$="1"g0t01758 

398 ifq$="s"goto8dd 

A488 ifq$="u"g0oto1898 

A418 g0t0318 


428 rem Hramaneeranccsernenueenge 


reine Textdatei. 


Text mit Zahlen 


MEN DU E",1:p 


39 


Mi<sed Doetei CC 16 


rem #340 03 neueingabe * 
rem #FREHUNNEcHeueeeHerateter 
458 scnclr 

468 char1,15,2,"NEUEINGABE", 1:print 
:gosub669:gosub68BB 

478 printchr$( 17) tab( 2) "Dateiname: 
";:poke19,4:inputcm$:poke19,8 

488 gosub499:g0t0738 

4980 print:ze=!: 

58B printtab( 2) ; :poke1319,34:poke23 


438 
448 


9,1:inputa$f ze) :printchr$( 13) ;:t1=z' 


e/15:fori=1t048 
518 iftl=ithengosub588:printchr$f 19 


J)"Seite: "tl+1:char1,2,8,"”"” 
528 next 
s38 ifa$( ze)=chr${f A2)thenreturn 


5408 
5598 
568 
578 


ze=ze+1:poke239,® 

goto588 

rem KRuunsHenensuueuengunnen 
rem #F#=##2% unterpropramme *# 
S8B rem Arrrureterugusuenunenongen 
598 printchr$( 18) ;:char1,2,22, "Seit 
e vor=®":char1,28,22, "Menue =" 
688 getkeya$ 

618 ifa$=chr$( 145) then648 

628 ifa$=chr$( 92) then38a 
638 getkeya$ 

648 char1,8,8,"",0:i=®@: 
:printlz$:i=i+1:1oop 

658 char1,9,8,"":return 
668 printtab( 1) :i=®:dountili=36:pri 
ntchr$( 96) ; :i=i+1:1loop:print 

678 return 

688 char1,7,5,"(Eingabe beeenden mi 
t ’*°)":print:return 

698 char1,15,2,"M EN U E",1:print: 
gosub669: return 

788 i=1:dountili=ze 

718 ifa$l i)=""then1798: loop 

728 return 

738 char1,8,22,"Daten speichern ? ( 
J3/n)”,1:print 

748 printtab(?2)chr$( 18)"Falls noeti 
g, Datendisk einlegen !"chr$( 146) 
758 getkeya$ 

768 ifa$="j"then8@9d:else:goto308 
I9I8 rem HANNES RHEHErR UNTEN 
788 FZS#X8 daten speichern *# 
I98 rem Fran sesnerengoruegenee 

888 scnclr:char1,8,2,”"Daten speiche 
rn”,1i:print 

818 print"”File-Name oder -nummer: "” 
;cm$ 

828 print:printcm$"” wird jetzt gesi 
chert”":print"Bitte warten.":print 
838 open2,8,2,"@9:"+cm$+",s,w" 

848 print#}2,ze 

858 i=1:dountili=ze:print#2,chr$t 34 
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dountili=15 


rem 


J)+a$l i)+chr$( 34) :i=i+1:1oop:close2 
868 gosub 1658:g0t01838 

878 rem Zrareueuneenuneugueeenen 

888 rem *#*#*#*==t2#: daten laden * 

898 rem Fraununuegaeenunenmeeen 

988 scnclr:char1,8,2,"Daten laden.” 
‚„I:print 

918 print"Dateiname: 
putcm$:poke19,8:print 
928 open2,8,2,"@8:"+cm$+",s,r":prin 
tcem$ 

938 input#2,ze 

948 i=1:dountili=ze:input#2,a$(i):i 
=j+1:loop:close2 

958 gosub 1658: g0t0308 

968 scnclr:char1,8,2,"Bildschirm-Au 
sgabe"”, 1:print 

978 printtab( 2)chr$( 18)” E "chr$( 1A 
6)"inzelschritt per Tastendruck" 
988 printtab( 2)chr$( 18)" G "chr$( 14 
6)"esamte Datei anzeigen” :gosub660 
999 getkeya$ 

19088 ifa$="e”"then13608 

1819 ifa$="g"then1458 

1878 else:g0t0o998 

1838 printtab( 2)chr$( 17)chr$( 18)" D 


";zpoke19,4:in 


= Drucken "tab( 26)" M = Menue"chr$ 
( 146) 

1848 getq$ 

1858 ify$="d"thenposub 1239: pot 0308 


1969 
1070 
1089 
14938 
1188 
1118 


ifqg$="m"then309 
gpoto1848 
goto1849 
else:goto1848 
rem 38202 aeaaeananeene 


rem **#2 ein/ausgabemenue # 
1128 rem Hrazxertornenaoneneereng 
1138 printchr$( 17)tab( 2)chr$( 18)" N 
"chr${ 146) "eue Datei eingeben":pri 
nt 
1149 printtab( 2)chr$( 18)" S "chr$f( 1 
46) "peichern einer Datei"”:print 
1158 printtab( 2)chr$( 18)" B "chr$( 1 
46)"estehende Datei laden" :print 
1169 printtab( 2)chr$( 18)” A "chr$( 1 
46)"nfuegen an bestehende Datei"”:pr 
int 
1179 printtab( ?)chr${( 18)" D "chr$(1 
46)"”aten auf Bildschirm"”:print 
1188 printt.ab( 2)chr$( 18)" H "chr$t( 1 
A6)"ardcopy (Druckerausgabe)":print 
1198 printtab( 2)chr$( 18)" L "chr$( 1 
46)"oeschen von Daten":print 
12889 printtab( 2)chr$( 18)" U "chr$( 1 
46)"mschalten zur Zahlen/Textdatei" 
:p0nsub669 
1218 printtab(2)chr$( 18)" E 
46) "NDE” :posub66®: return 


"chr$( ii 


Mi=<ed Datei 28 16 


1228 rem ##r### x 
1238 rem n ausdrucken * 


1248 rem HANNAH 


1258 scenelr:char1,8,2,"Drucker-Rout 
ine.",1:print 

1268 print:print” Aenderung der " 
1278 print" Sekundaeradresse" 

1288 printtab( 19) chr$( 145) "7"chr$t 1 

57) chr$( 157) chr$( 157) ; :inputsa 

1298 printchr$( 179) chr$( 18) "Wenn Dru 

cker bereit ist, Taste !"chr${ 146) 
1388 poke239,9:wait239,1 

1318 open4,4,sa:cmd4 

1328 print#4,cm$:print#4:i=1:dounti 
li=ze:print#4,a$( 1) :i=i+1:loop:prin 

t#44:close4:g0t0398 

1338 rem 
1348 rem 
13580 rem 
1368 gosub?788 

1378 printcm$:print:ze=1 

1388 printtab(2)a$( ze) :t1=ze/15:pok 

e239,8:wait239, 1 

1398 forj=-1t048 

1408 iftl=jthengosub64M 

1419 next 

1428 ifa$( ze)=chr$( 42) then193® 

1438 ze=ze+1 

1448 g0t01388 

14580 gosub?98 

1468 printcm$:print:ze=i 

1478 printtab(2)a$( ze) :tl=ze/1S:for 

J3=-1t048 

1488 iftl=jthenprintchr$( 18) "Seite 
vor=Taste."chr$( 146) :poke239,®:wait 

239,1:g0sub648 

1498 next 

15088 ifa$( ze)=chr$( 42) then1838 

1518 ze=ze+1 

1528 got0o1478 

1530 rem #Hruuuesteruuenueseteeene 
1548 rem append-daten anhaengen* 
1558 rem #Hrrusureuuuenunuceeuuegne 
1568 scncelr:gasub789:gosub 16209: ze=z 

e-1 

1578 gosub688:gosub669:printtab( 2)c 

m$:print:printtab( 2)a$( ze) 

1580 ze=ze+tl:printtab( 2); :poke1319, 
34:poke239,1:poke19,4:inputa$( ze) :p 
oke19,®8:print 

1598 ifa$( ze) =chr$( 42) then 1618 

1680 goto1588 

1618 print:g0t0738 

1628 ifze=988then 1708 

1638 printtab(2)chr$( 18) "Datensaetz 
e bisher:"str$( ze-1)chr$( 146) 

1648 printtab(2)"” Letzter Datensatz 
wird angezeigt.":return 


-snmn . nn 


3x 
ie 
DD x 
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ann cn ri 


a. bildschirm-auspabe * 


FAARUNHINNENUELETUNEEEN 


SENCHEUrHenE 
isk-fehler *# 
2 2.2.2. 2.2. 22.2 2200 
intds$;ds:cm$="": 


1658 
1668 
1678 
1688 
egeoLo308 

1699 return 

1788 gosub1838:printchr$( 19) chr$( 17 
)tab( 3)chr$( 18)" Keine Daten im Spe 


rem sus 

rem ##* 

rem *F+## 
> 


icher !!!"chr$( 146) 

1719 char1,25,18,"M = MENUE", 1:prin 
t:g0t029@ 

1728 rem 


BERUHEN ENENENEN 
1738 rem #***#*## daten loeschen *# 
1948 rem Zrennenenuneerereerueen 
1758 gosub 183®8:print:printchr$( 19)t 
eb(2)chr$( 17)chr$( 18) "Daten loesche 
n."chr$( 146) 

1768 print:printtab( 2) "Sind Sie sic 
her ( j/n) ?":gosub668 

1770 getkeya$ 

1788 ifa$="j"then1798:else:p0oto384 
1998 printtab(2) "Bitte warten...":i 
=1:dountili=ze:a$(i)="":i=i+1:1loop: 
em$="" 

1899 print:printtab(2)chr$( 18)" Arb 
eitsspeicher ist jetzt leer."chr$f(1 
46) 

1818 fort=1t02@88:next :g0oto3908 

1828 char1,9,18,"":i=1:dountili=1®: 
printlz$; :loop:return 

1838 scenclr 

1848 printchr$( 176) ; :i=® 

1858 dountili=36:printchr$( 96) ;:i=i 
+1:loop:printchr$( 174) : j=® 

1868 dountilj=28:printchr$( 125) tab( 
37) chr$( 125) : j=j+1:1loop:k=® 

1878 printchr$( 173) ; :dountilk=36:pr 
intchr$( 96) ; :k=k+1:loop:printchr$( 1 
89) 

1888 return 

1898 gosub1838:g0osub694 

1988 print:printtab( 18) chr$( 18) "TEX 
T/ZAHLENDATEI"chr$( 146) :print 


1918 printtab(9)" 1 = Neueingabe" 
1928 printtab(9)"” 2 = File laden" 
1938 printtab(9)" 3 = File speicher 
n" 

1948 prirttab(9)"” 4 = File anzeigen 
1958 printtab(9)" 5 = File addieren 
1968 printtab(9)" 6 = File erweiter 
n” j 

1978 printtab(9)" 7 = Drucker-Routi 
ne” 

1988 printtab(9)"” 8 = ENDE 

1998 print:printtab(9)" 9 = Umschal 
ten auf " » 
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ET REEL DEERIEEEIEEEHEEEEEGEIEEEEEF EEG BEESEEEENEEEEEDEESEEEEEEEE EEE 


Miczed Datei [- 16 


2888 printtab( 14) "Textdatei" 
2818 getq$:ifq$=""then2018 
2028 onval(q$) goto2948,2198, 2250,23 
38,24380,2588,2700,2868,388 
2838 goto2818 
rem #Htırzuranaen 
rem *#*#t#t n 
rem 
pn=len{ "Neueingabe ein 


eue 
F 


2888 scnclr:chari,(48-pn) /2,2,"Neue 
ingabe eines Files", 1:print:gosub66 
0 ‚ 
2898 gosub68B:g0osub660d 

2188 poke19,4:input"”File Name: ";#f1 
$:poke19,8:print:ifn=1888thenn=® 
2118 print"EG-Text...";:inputsb$( nn) 


"print 

2128 ifsb$(n)=chr$( 42)then?899 

2138 print"EG-Zahl...";:inputz(n):p 
rint 

2148 n=n+1 

2159 g0t02118 

2160 rem Hrrszaeaenuueeeiteegreen 
2198 rem ###t#rxz232 file laden # 
2180 rem Frrarunsuennuntareetunen 
2198 scenclr:printchr$( 18) "File lade 


n."chr$( 146) 

2288 poke19,4:input"File-Name: 
$:poke19,®:print 

2218 open2,8,2,f1$+"”,s,r":input#2,n 
2228 fori=®ton:input#2,sb$(i) :input 
#2,z(i) :next:close?2 

2238 g0t01898 

2248 rem 
2258 rem *### ile speichern *# 
22608 rem Hraxenerueeenuunnenaeen 
2298 scnelr:printf1$"” 

t. Bitte warten...” 

2288 open2,8,2,"@8:"+f1$+",s,w" 
2298 printf#2,n 

2388 i=®8:dountili=n:print#2,sb$(i): 
print#2,z(i) :i=-i+1:loop:close2 


":f1 


som amn 


wird gesicher 


2319 g0t01898 

2328 rem Hrtatetenreeergeuenenere 
23380 rem #*####t* file anzeigen *# 
2349 rem Hitrrerzermuseeeenurgee 
2358 scnclr:printchr$( 18) "File anze 
igen."chr$( 146) 

2368 print"File-Name: "f1$ 

2378 iff1$=""then2688 

2388 i=®8:dountili=n 

2398 printsb$(i)tab( 25); :print usin 
g dz$;z(i) :i=i+1:1loop 

2408 gosub2878 

2419 g0oto1898 

2428 rem Hrarsnaegenneeeoaeumeeen 
2438 rem ###r##rzzzz2 addition * 
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2448 rem Hrrsuenetenenmersuneee: 


2458 senclr:printchr$( 18) "Werte add 
ieren."chr$( 146) 


2468 print"File-Name: "f1$ 

24978 iff1l$=""then?2688 

2488 s=8:i=®:dountili=n 

2498 printsb$( i)tab( 25) ;:print usin 


g dz$; z(i):s=s+z(i):i=i+1:1loop 

2588 printtab( 27) "------- - ":printta 
b(25);:print using dz$;s 

2518 print:print:printtab( 18)chr$( 1 
8) "Ausdrucken 3/n ?"chr$( 146) 


2528 getx$:ifx$="n"then1890 

2538 ifx$="j"then2788 

2548 goto2528 ' 

2558 gosub2878 

2569 g0t01898 

2578 rem #razunsennacnereneaenen 
2588 rem ###rxxuugaanur append # 
2598 rem #rsuauserunnonerseenanen 
2698 scnclr:printchr$( 18) "File erwe 


itern/Daten anhaengen"chr$( 146) 
2618 print"File-Name: "f1$ 
2628 iff1$=""then2688 

2628 printsb$( n-1),z(n-1) 


2648 :input"”EG-Text...:";sb$(n):pri 
nt:ifsb$(n)=chr$( 42) then1898 
2658 input"EG-Zahl...:";z(n):print 


2668 n=n+1 

2678 g0t02648 

2688 char1,7,12,"Keine Daten im Spe 
icher!",1:forg=1t03@8®:nextq:g0t0189 
A i 
2698 rem Zrrarturaueenunneaeeeee 
2788 rem #****=* druckerroutine * 
2I7IB rem ZraNErHEnneegEuETerEnee 
2928 scncelr:printchr$( 18) "Daten dru 
cken."chr$( 146) 

2738 print”Aenderung der" 

2748 print"Sekundaeradresse:" 

2758 printtab( 19) chr$( 145) "?"chr$f 1 
57) chr$( 157) chr$( 157); 

2768 inputsa 

2778 print:printchr$( 18) "Wenn Druck 
er bereit ist, Taste druecken."chr$ 
( 146) 
2788 
2798 
2808 


ar 


poke239,8:wait239,1 
open4,4,sa:cmd4 
print#4,tab(5)fı$ 

2818 fori=®ton-1 

2828 print#4,tab(5)sb$( i)tabf( AB-len 
(sb$(i))-len( dz$));:print#4,using d 
z$; z(i):s=s+zli) :next 

2838 print#4,tabl 37) "-------- Mr 

2848 print#4,tab( 45-len(dz$));:prin 
t#4 ,using dz$;s 

2858 print#4:close4:g0t01898 

2868 scnclr:printchr${ 12) chr$( 142): 


Mixed Datei CC 16 (Französisch) 


end 

2878 printchr$( 17) chr$( 17) chr$( 18)" 
Taste fuer ’MENUE* "chr$( 146) 

2888 poke239,8:wait239,1 

2898 return 

2988 rem mixed datei 
2918 rem 869671 bytes 
2928 rem 888731 bytes 
2938 rem B8AUu08 
2948 rem QUWWUB bytes 
2958 rem 898098 
2968 rem 851625 
29978 rem ============ === -==2=>====2== = 


FRANZÖSISCHE 
VERBEN 


Das Programm ist aufge- 
baut in ein 3er System. 
Zuerst springt der Rech- 
ner zum Anfangsbild. 
Dann zur Anleitung und 
schließlich zur Eingabe. 
So funktioniert auch das 
zweite Programm. 


memory = 
program 

variables 
arrays === 
strings === 


etre, connaitre, ecrire, 
eteindre, usw. 

Insgesamt beinhaltet das 
Programm die wichtigsten 
Verben (68 Stück). 
Wichtig: 

Das Programm konjugiert 
die Verben im Präsens 


Bei dem französischem durch. Z.B.: 
Programm braucht man Verb — etre: 
nicht auf die Besonder- Singular 
heiten dieser Sprache suis 
aufzupassen. Circonflex est 

und andere Besonderhei- es 

ten gibt es in dem Pro- Plural 
gramm nicht. sommes 

Bei der Eingabe kann etes 

man es normal eingeben. sont 


18 rem französische verben =====64 
28 rem (p) commodore welt uber 
308 rem ===========-====2= === ===2=====> 
48 rem (c) by = 
58 rem stefan draheim == 
68 rem == 
78 rem version 2.8 4Adz/ascii == 


880 rem c 64 _ + 
98 rem 


188 
118 
128 
138 
:nexty:nextz 


goto988 


148 printchr$( 147) 


15398/1541 == 


rem ###eingabe*** 
s=69:dimb$(s,?) 
forz=1tos:fory=1t0o7:readb$(z,y) 


158 poke532898,8:poke53281,® 

168 input"bitte geben sie das gewue 
nschte verb ein"”;i$ 

178 Fforz=1tos:ifi$=b$( z,1)thengoto2 


02 
188 nextz 


198 print:print"verb nicht vorhande 
n":fort=1t01588:next:goto148 

209 printchr$( 147) 

218 poke53288,8:poke53281,0 

228 print"das verb ist:":printb$(z, 
1) 

238 print:print"der singular ist:": 
fory=2to4:printb$( z,y) ;"..":next 
248 print:print"der plural ist:":fo 
ry=5t07:printb$(z,y);"..":next 

258 print:input"noch einmal <j/n>"; 
ifa$="j"thengoto148 
ifa$="n"then sys 64738 

288 ifa$<>" j"ora$<>"n"thenprint"fal 
sche eingabe":fort=1t0999:next:goto 
258 

298 data aller,vais,vas,va,allons,a 
llez,vont 

3808 data abattre,abats,abats,abat,a 
battons, abattez,abattent 

310 dataaccueillir,accueille,accuei 
lles,accueille,accueillons,accueill 
ez,accueillent 

328 data apercevoir,apercois,aperco 
is,apercoit,apercevons, apercevez,ap 
ercoivent 

338 dataappartenir,appartiens, -tien 
s,appartient,,appartenons, appartenez 
‚appaertiennent 

3408 datas’asseoir,m’assieds,t’assie 
ds,s’assied,ns asseyons,vs asseyez, 
s’asseyent 

358 dataavoir,ai,as,a,avons,avez,on 
t 

368 databattre,bats,bats,bat,batton 
s,battez,battent 

378 databoire,bois,bois,boit,buvons 
‚buvez,boivent 

388 databouillir,bous,bous,bout,bou 
tons,boutez,boutent 

398 datacombattre,combats,combats,c 
ombat,combattons,combattez,combatte 
nt 

488 dataconclure,conclus,conclus,co 
nclut,concluons,concluez,concluent 
418 dataconduire,conduis,conduis,co 
nduis,conduisons,conduisez,conduise 
nt 

428 dataconnaitre,connais,connais,c 
onnait,connaissons,connaissez,conna 
issent 

438 dataconstruire,construis,-strui 
s,construit,constuisons,construisez 
‚construisent 

448 datacontenir,contiens,contiens, 
contient,contenons, contenez,contien 
nent » 
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(Französisch) j 


458 datacommettre,commets,commets,c 
ommet ‚commettons,commettez,commette 
nt 

468 datacoudre,couds,couds,coud,cou 
sons,cousez,cousent 

4978 datacourir,cours,cours,court,co 
urons,courez,courent 

488 datacouvrir,couvre,couvres,Couv 
re,couvrons,couvrez,couvrent 

498- datacraindre,crains,crains,crai 
nt,craignons,craignez,craignent 

588 datacroire,crois,crois,croit,cr 
.oyons,croyez,croient 

518 datacuire,cuis,cuis,cuit,cuison 
s,cuisez,cuisent 

528 datadecrire,decris,decris,decri 
t,decrivons,decrivez,decrivent 

538 datadetruire,detruis,detruis,de 
truit,detruisons,detruisez,detruise 
nt 

548 datadevoir,dois,dois,doit,devon 
s,devez,doivent 

S58 datadire,dis,dis,dit,disons,dit 
es,disent 

568 datadormir,dors,dors,dort,dormo 
ns,dormez,dorment 

578 dataecrire,ecris,ecris,ecrit,ec 
rivons,ecrivez,ecrivent 

588 dataelire,elis,elis,elit,elison 
s,elisez,elisent 

598 dataenvoyer,envoie,envoies,envo 
ie,envoyons,envoyez,envoient 

688 dataeteindre,eteins,eteins,etei 
nt,eteignons,eteignez,eteignent 

618 dataetre,suis,est,es,sommes,ete 
s,sont 

628 dataexclure,exclus,exclus,exclu 
t,excluons,exluez,excluent 

638 datafaire,fais,fais,fait,faison 
s,faites, font j 

649 datafuir,fuis,fuis,fuit,fuyons, 
fuyez,fuient 

658 datajoindre, joins, joins, joint,j 
oignons, joignez, joignent 

668 datalire,lis,lis,lit,lisons,lis 
ez,lisent 

678 datamentir,mens,mens,ment ,‚mento 
ns,mentez,mentent 

688 datamettre,mets,mets,met,metton 
s,mettez,mettent 

698 datamourir,meurs,meurs,meurt,mo 
urons,mourez,mourent 

788 datanaitre,nais,nais,nait,naiss 
ons ,naissez,naissent 

718 dataoffrir,offre,offres,offre,o 
ffrons,offrez,offrent 

728 dataouvrir,ouvre,ouvres,ouvre,o 
uvrons,ouvrez,ouvrent 
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?3@ dataparaitre,parais,parais,para 
it,paraissons,paraissez,paraissent 

748 datapartir,pars,pars,part,parto 
ns,partez,partent 

758 datapeindre,peins,peins,peint,p 
eignons,peignez, peignent 

768 dataplaindre,plains,plains,plai 
nt,plaignons,plaignez,plaignent 

778 dataplaire,plais,plais,plait,pl 
aisons,plaisez,plaisent 

788 datapleuvoir,pleus,pleus,pleut, 
pleuvons,pleuvez,pleuvent 

798 datapouvoir, peux,peux, peut ,,pouv 
ons,pouvez,peuvent 

888 dataprendre,prends,prends,prend 
‚prenons,prenez,prennent 

818 dataproduire,produis,produis,pr 
oduit,produisons, produisez,produise 
nt 

828 datarecevoir,recois,recois,reco 
it,recevons,recevez,recoivent 

838 datarire,ris,ris,rit,rions,riez 
‚rient 

840 datasavoir,sais,sais,sait,savon 
s,savez,savent 

8580 datasentir,sens,sens,sent,sento 
ns,sentez,sentent 

868 dataservir,sers,sers,sert,servo 
ns,servez,servent 

878 datasortir,sors,sors,sort,sorto 
ns,sortez,sortent 

888 datasouffrir,souffre, souffres,s 
ouffre,souffrons, souffrez, souffrent 
898 datasuffire,suffis,suffis,suffi 
t,suffisons, suffisez, suffisent 

998 datasuivre,suis,suis,suit,suivo 
ns,suivez,suivent 

918 datatenir,tiens,tiens,tient,ten 
ons,tenez,tiennent 

928 datavaloir, vaux,vaux,vaut,valon 
s,valez,valent 

938 datavaincre,vaincs,vaincs,vainc 
‚vainquons, vainquez,vainquent 

948 datavenir,viens,viens,vient,ven 
ons,venez,viennent 

958 datavivre,vis,vis,vit,vivons,vi 
vez,vivent 

968 datavoir,vois,vois,voit,voyons, 
voyez,voient 

978 datavouloir,veux,veux,veut,voul 
ons,voulez,veulent 

988 rem ***#anfangsbild*** 

998 printchr$( 147) 

1888 poke53288,8:poke53281,®8: 

181% printtab( 8) "unregelmaessige ve 
rben"” 

1828 print:printtab( 12) "franzoesisc 
h Li2 


SERVICE 


TIPS & TRICKS P/4 


print:print:print 
printtab(8)"(c) copyright by s 


print:print:print:print:print 
printtab(8)"bitte taste drueck 


geta$:ifa$=""then 1970 

goto1998 

rem **#=anleitung**#* 
printchr$( 147) 
print:printtab(18)"an lei t 
U n g " 

1128 print:print"das programm beher 
rscht die konjungation" 

1130 print . 

1148 print"der unregelmaessigen ver 
ben im praesens." 

1158 print 

1168 print"”sie brauchen nur den frz 
.infinitiv " 

1178 print:print 

1188 print"eingeben und schon konju 
giert das" 

1199 print:print 

1288 print"programm alle personen i 
m praesens durch" 

1219 print 

1228 printtab(8) "bitte taste drueck 
en " 

1238 geta$:ifa$=""then1230 

1248 printchr$( 147) 

1258 print"sie brauchen nicht die f 
rz.buchstaben" 

1268 print:print"wie circonflex ode 
r andere zu beachten.“ 

1278 print:print"sie koennen es nor 
mal hinschreiben!!" 

1288 print:print"z.b.:" 

1298 print:print"”etre oder connaitr 
e " . 


13088 print"-......2....... = 

1318 print:printtab(B) "bitte taste 
druecken" 

1328 geta$:ifa$=""then13208 

1338 goto11®@ 


franzoesische verben====64 
038911 bytes memory 

885918 bytes program 

890035 variables 
899008 
0891689 
031269 


Der ‘Plus 4‘ ist ein bewun- 
dernswertes und begei- 
sterndes Gerät und für 
alle ernsthaften Anwen- 
der das Beste, was zu 
empfehlen ist (Gegen- 
satz: Seitenlange Pro- 
gramme zu Hause aus- 
wendig einpauken,um im 
Warenhaus den Zuschau- 
ern etliche bunte Kreise 
auf den Bildschirm zu 
machen — gibt es etwas 
Dümmeres? Kleine Männ- 
chen umherhüpfen zu 


lassen — ist das im Sinne 
der Erfinder?). 

Gerade die Interessengrup- 
pen, für die der Hersteller 
dieses Gerät gemacht hat, 
wissen leider nichts von 
ihm, da sie — zwar inter- 
essiert, doch zurückhal- 
tend — in dem noch herr- 
schenden Dschungeldun- 
kel nicht klar sehen und 
eine Werbung des Herstel- 
lers fast völlig fehlt. 
Eines der im Plus 4 inte- 
grierten und im Anlei- 
tungsbuch bestens erklär- 
ten Programme ist die 
sog. Dateiverwaltung. 
Hierin gibt es den ‘RV‘“- 
Befehl, um die Dateien 
schnell durchlaufen zu 
lassen. ‘Schnell‘ ist hier 
fast zu schnell, während 
der zugehörige Stopp- 
befehl recht langweilig 
reagiert. Es gibt eine ein- 
fache Abhilfe mit dem 
‘Search‘-Befehl, der üb- 
licherweise mit der Ein- 
gabe eines Suchbegriffes 


verbunden ist. In diesem 
Falle wird das Eingeben 
eines Suchbegriffes unter- 
lassen und statt dessen 
ein zweites “Return“ ge- 
drückt. Das bewirkt; daß 
Nr. 1 der unsortierten 
oder einer sortierten Da- 
tei auf dem Bildschirm 
erscheint. Gleichzeitig 
fragt der C.: ‘Yes/No?”‘ — 
bei “Yes‘ kommt Nr. 2 
der Datei. So kann die 
ganze Datei-Diskette ab- 
gefragt werden — so 


schnell oder so langsam, 
wie jeweils “Yes‘ ge- 
drückt wird. 

Das Anleitungsbuch gibt 
weiterhin keine Auskunft 
über den Fall, daß ein 
einziger Brief, d.h. eine 
einzige Adresse aus der 
Dateiverwaltung, verwen- 
det bzw. gedruckt werden 
soll: Es wird vor der An- 
gabe ‘tf;:rc‘ die RC-Nr. 
der zu verwendenden 
Adresse eingetippt, wor- 
aufhin der Druckvorgang 
bei Textende endet, da 

ja kein ‘eof‘ eingegeben 
wurde. Andernfalls muß 
rechtzeitig ‘Run/Stop“ be- 
tätigt werden. 

Schließlich ist noch zu 
erwähnen, daß der Cursor 
mit ‘Shift‘ und ‘=‘ in Spal- 
te 77 gebracht werden 
kann. 

Ein Computer für einen 
rationalen Zweck ist we- 
sentlich unterhaltsamer 
als einer nur zur Unter- 
haltung! Helmut Kopplin 
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nn. 


BRENNEN SIE SICH 
WOHL 


Neben der Software stehen Hardware-Erweiterungen 
bei VC20/C64-Besitzern immer noch ganz oben auf der Wunschliste. 
Leider sind auch diese Dinge nicht ganz billig, es sei denn, man ergreift 


‚TIPS & TRICKS 


Eigeninitiative und brennt sich eigene Programme in ein EPROM. 
COMMODORE-WELT stellt einen „EPROM-Brenner” vor. 


Eprombrenner 


Nachdem man in Heft 
2 nachlesen konnte, was 
Eproms und Eprombren- 
ner sind, so soll hier mal 
der praktische Einsatz an 
einem Beispiel gezeigt 
werden. 

Nochmals zur Wieder- 
holung, Eproms sind elek- 
tronische Bausteine, wel- 
che mit Daten oder Pro- 
grammen „gefüllt“ oder 
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aber auch wieder gelöscht 
werden können. 

Als „Füllgeräte‘“ dient 
ein sogenannter Eprom- 
brenner, er besteht aus 
einer elektronischen 
Schaltung, die Hardware, 
und aus einem Steuerpro- 
gramm, die Software. An- 
geschlossen werden die 
Geräte meist am Userport 
des C64, seltener am Ex- 


pansionsport. Dorther be- 
ziehen sie auch ihre 
Stromversorgung. Ohne 
Saft geht da nichts. Lö- 
schen kann man diese 
Eproms, zumindest die 
aus der 27er Reihe, mit- 
tels UV-Licht. 
Monitore sind in die- 
sem Zusammenhang kei- 
ne Bildschirme, sondern 
Programme. Mit diesen 


- Programmen ist es nun 


möglich, sich den Spei- 
cher des Rechners auf 
seinen: Inahlt hin anzuse- 
hen. So ein Monitor 
verfügt über einen eige- 
nen Befehlssatz. So ist es 
möglich, Programme an 
einen anderen Speicher- 
latz. zu schieben, Ände- 
rungen vorzunehmen, z.B. 
an Maschinenprogram- 
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men,oder gezielt Speicher- 
bereiche auf Disk zu spei- 
chern. Ebenso könne Pro- 
gramme ‘an bestimmte 
Speicherbereiche geladen 
werden. Dies wird oft an- 
gewendet, wenn z.B. Pro- 
gramme mit Autostart 
verändert werden sollen. 
Wenn solche und auch 
andere Programme nicht 
an die Originaladresse ge- 
laden werden, so sind die- 
se nicht lauffähig, und 
genau das braucht man ja 
zum „bearbeiten“. 


Farben 
abändern 


Und genau so etwas 


wollen wir heute mal tun. 
Wir nehmen uns mal das 
Betriebssystem unseres 
Rechners (C64) vor. Ei- 
nen Monitor sollten Sie 
zu diesem Zweck schon 
haben und auch einladen. 
In der Steuersoftware 
von Eprombrennern ist 
auch einer ‚drin‘, dieser 
tut es für unsere Zwecke 
auch. Der Befehlssatz ist 
im Allgemeinen gleich. 
Wenn wir nun am Be- 
triebssystem herumba- 
steln wollen, so müssen 
wir wissen, wo dieses sich 
versteckt hält und was 
wir eigentlich ändern 
wollen. Nun, Sie haben 
vielleicht noch nicht ge- 
merkt, wie sehr Ihnen 
diese wunderschönen 
Einschaltfarben auf den 
Geist gehen. Sie gehen 
Ihnen auf den Geist, ganz 
bestimmt. Und genau die- 
se Farben werden wir 
ganz nach Ihren speziel- 
len Wünschen abändern 
und zwar dauerhaft. Kei- 
ne Angst bitte, ich lasse 
Sie nicht nach den Farb- 
adressen im Speicher bzw. 
im Betriebssystem suchen. 
Nachdem das Betriebs- 
system fest in ein Prom 
(nicht löschbarer Bau- 
stein) einprogrammiert 
wurde und ständig in Be- 
legung ist, ist es sicherlich 
einleuchtend, daß wir da 
an den Originaladressen 


nichts ‚„drehen‘‘ können. 
Wir müssen also unser Be- 
triebssysttem an einen 
Speicherplatz bringen, 
wo es schön ruhig liegt 
und unsere Eingriffe freu- 
dig entgegennimmt. Be- 
vor wir uns zu einem sol- 
chen Plätzchen entschlie- 
ßen, sollten wir wissen, 


“wo unser Monitor bzw. 


unser Steuersoftware im 
Speicher steht. Monitore 
stehen oft ab C000 hexa- 
dezimal und werden mit 
XYX 49152 (das ist glei- 
che Adresse, nur dezimal) 
gestartet. Die Steuersoft- 
ware von Brennern benut- 
zen oft den Bereich ab 
5000 hexadezimal. Hier, 
an dieser Stelle, sollten 
wir vereinbaren, daß, 
wenn ein $ (Dollarzei- 
chen) vor einer Zahl steht, 
damit die hexadezimale 
Schreibweise gemeint ist. 
Also gehen wir mal da- 
von aus, daß einer der 
Bereiche zutrifft, so kön- 
nen wir das Betriebs- 
system, welches 8 kByte 
lang ist, an die Adresse 
3 1000 verschieben. Das 
Betriebssystem steht ab 
3 EO000 bis FFFF. Bevor 
wir zu „schieben“ anfan- 
gen, sollten wir den aus- 
erwählten Bereich noch 
von irgendwelchen Daten 
säubern. Dazu müssen wir 
unseren Monitor, egal 
welcher, starten. Er mel- 
det sich so: 
PCSRACXRYRSP 
.:2003 BO AA F4 91 F7 
Falls Ihre Meldung an- 
ders ausfällt, so machen 
sie sich keine Gedanken 
darüber. Anderer Moni- 
tor, andere Meldung. Mit 
dem ‚F“ oder „O“ Befehl 
läßt sich der auserwählte 
Bereich „säubern“. Sie 


geben ein: F 1000 4000° 


FF und drücken die „RE- 
TURN“ Taste, es kann 
sein, daß bei anderen 
Monitoren statt Leerzei- 
chen ein Komma _ zwi- 
schen den Zahlen einge- 
geben werden muß. Nach 
einiger Zeit meldet sich 
unser Cursor blinkend 


wieder, so, als ob nichts 
geschehen wäre. Es hat 
sich aber was getan und 
zwar haben wir den Spei- 
cherbereich mit Nullen 
(FF) aufgefüllt. Wir kön- 
nen das mit dem „M“-Be- 
fehl überprüfen, wenn wir 
M 100 4000 eingeben. Mit 
„RETURN“ abschließen. 
Jetzt wird sofort der Spei- 
cherbereich ausgelistet. 


Links werden die Spei- . 


cheradressen, rechts da- 
von in zweier Gruppen 
die Daten bzw. Speicher- 
inhalt in ASCII-Code, an- 
gezeigt. Nachdem wir uns 
überzeugt haben, daß un- 
ser Bereich ‚sauber“ ist, 
können wir mit dem Ver- 
schieben des Betriebssy- 
stems beginnen. Dazu 
dient der „T‘ (Transfer- 
oder Verschiebe) Befehl. 
Wir geben ein: 

T E000 FFFF 1000 

Mit „RETURN“ abge- 
schlossen tut sich eine 
Weile lang nichts sicht- 
bares. Dann kommt nach 
einiger Zeit unser Cursor 


wieder und blinkt nichts- 


Exakte Kopie 
im Speicher 


sagend. Aber nachdem 


wir unseren „M‘“ Befehl 
(Memory ansehen) schon 
kennen, können wir uns 
ansehen, was da passiert 
ist. Also geben wir ein: 

M 1000 2FFF und 
„RETURN“ 

Sofort wird wieder unser 
Bereich ausgelistet und 
siehe da, unsere Nullen 
sind verschwunden. Statt 
dessen steht jetzt eine ex- 
akte Kopie des Betriebs- 
systems im Speicherbe- 
reich $ 1000 bis $ 2FFF 
dieser Bereich entspricht 
einer Länge von 8 kByte. 
Wenn Ihnen das Auslisten 
zu schnell geht, so kön- 
nen Sie .mit der „CON- 
TROL“ Taste die Ausga- 
be verlangsamen. Auch 
können Sie diesen „Hex- 
Dump“ auf dem Drucker 
laufen lassen, dazu müs- 
sen bei manchen Moni- 


toren die Ausgabebefehle 
„geshiftet“ eingegeben 
werden. Bei anderen müs- 
sen vor dem Starten des 
Monitors der Druckerka- 
nal geöffent und die Aus- 
gaben auf den Drucker 
geleitet werden. Mit 
„OPEN1,4:CMD1“ ist 
dies schon gemacht. 

Aber wir wollen ja 
unsere Einschaltfarben 
ändern, dazu müssen wir 
mit dem „M“-Befehl die 
Speicherzellen $ 1cd9 
und $ Icda auslisten. In 
der ersten Zelle steht OE 
für hellblau, in der zwei- 
ten 06 für blau. Also ist 
der Inhalt von Zelle $ 
1cd9 die Farbe vom Rah- 
men und von Zelle $ 
1cd9 die Farbe vom Rah- 
men und von Zelle $ Icda 
die Farbe vom Hinter- 
grund. Wollen Sie z.B. 
Rahmen und Hintergrund 
in schwarz haben, so fah- 
ren Sie mit dem Cursor 


auf OE und geben 90, ' 


weiter auf 06, auch hier 
90 eingeben, fahren Sie 
mit dem Cursor auf den 
Doppelpunkt am Ende 
dieser Zeile und drücken 
Sie „RETURN“. Wollen 
Sie die Schriftfarbe gleich 
mitändern, so listen Sie 
die Speicherzelle $ 1478 
aus und schreiben dort 
lE für grün hinein. Dazu 
ist die gleiche Prozedur 
wie vorher beschrieben 
notwendig. auch können 
Sie die Einschaltmeldung 
auf die gleiche Art und 
Weise ändern. Haben Sie 
alle Änderungen vollzo- 
gen, 
erstes Ihre ‚„Kreation“ 
auf Disk speichern. Das 
geht ebenfalls mit dem 
Monitor, und mit dem 
„S““-Befehl (Save) kön- 
nen Sie den Speicherbe- 
reich auf Disk bannen. 
Hierzu müssen Sie Ihrem 
Befehl aber mitteilen, 
von wo bis wo abgespei- 
chert werden soll. Ihr ge- 
ändertes Betriebssystem 
steht ab $ 1000 bis $ 
2FFF im Speicher, also 
müssen Sie diesen Bereich 
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so sollten Sie als - 
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plus 1 für die Endadresse 
abspeichern. Also geben 
wir ein: 
S’KERNAL $ 1000’, 08, 
1000 3000 und „RE- 
TURN“ 

Somit wäre eizk alles 
gesichert und Sie können 
jederzeit das Betriebssy- 
stem mit dem ‚L“-Befehl 
(Load) wieder in den 
Rechner einladen. Dabei 
wird automatisch an die 
Adresse geladen, welche 
"beim Abspeichern angege- 
ben wurde, also hier $ 
1000. Deshalb auch die 
Namensgebung mit $ 
1000, so weiß man auch 
nach Jahren noch, wo 
hingeladen wird. 


Gegen 
Löschen 
Schützen! 


Ich gehe mal davon 
aus, daß Sie Ihren Eprom- 
brenner eingesteckt und 
die Steuersoftware im 
Rechner haben. So kön: 
nen Sie jetzt mit „X“ den 
Monitor verlassen und ein 
Menue der Steuersoftwa- 
re erscheint. Sie sollten 
jetzt ein leeres Eprom 
von 8 kByte (2764) in 
die Fassung des Brenners 
stecken und den Brenner 
einschalten. Die weiteren 
Schritte beziehen sich auf 
den Eprombrenner von 
DELA-Elektronik (Bau- 
satz ca. DM 100). Sie 
wählen den Menuepunkt 
„Eprom brennen‘, jetzt 
fragt sie der Rechner 
nach dem Epromtyp und 
Sie geben den Wert, der 
für 2764 steht, ein. Da- 
nach werden Sie aufgefor- 
dert, Anfangs- und End- 
adresse einzugeben. Also 
hier wieder 3 1000 $3000. 
Die weitere Frage nach 
dem Bereich im Eprom 
beantworten Sie einfach 
mit „RETURN“. Jetzt 
können Sie auf dem Bild- 
schirm den Brennvorgang 
mitbeobachten. Ist der 
„Brand“ gelungen, so 
schalten Sie den Brenner 
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aus und entnehmen das 
Eprom aus seiner Fas- 
sung. Wie eingangs er- 
wähnt, lassen sich Eproms 
mit UV-Licht löschen. 
Deshalb haben diese Bau- 
steine ein Fenster. Durch 
dieses kann UV-Licht ein- 
fallen. Das Eprom muß 
also gegen unbeabsichtig- 
tes Löschen geschützt 
werden. Überkleben Sie 
das Fenster einfach mit 
einem Überschreibschutz- 


streifen von Ihren Disket- 
ten. Darauf können Sie 
auch eine Kennzeichnung, 
wie z.B. Kernal Farbe, 


anbringen. 
Hier noch eine Farb- 
tabelle, damit Sie sich 


„Ihre“ Farbkombination 
zusammenstellen können. 
Sie ist zwar auch in Ihrem 
Handbuch enthalten, al- 
lerdings nicht im Hex- 
code. 


Farbe ASCH ar HEX 
weiß 05 


rot 28 lc 
grün 30 le 
blau 31 1f 
schwarz 144 90 
purpur 156 9c 
gelb 158 9e 
cyan 159 9d 


Sie sollten sich in Ihr 
Handbuch den jeweiligen 
Hex-code hinter die 
CHR$ schreiben. Beach- 
ten Sıe dabei aber die 
Zählweise im Hexcode 
und schreiben Sie die 
Werte auch als 2Byte in 
Ihre Liste. Also so: CHR$ 
0 = Hex 00 und denken 
Sie daran, nach 9 kommt 


nicht 10 sondern 0A und 
nach OF gehts weiter mit 
10 (Eins Null). So, und 
jetzt müssen Sie Ihr 
Eprom auch noch in den 
Rechner einbauen. Dazu 
benötigen Sie auf jeden 
Fall den in Heft 2/86 be- 
schriebenen Adapter, 


denn Ihr Eprom hat ein 
paar Füßchen mehr als 
Ihr Prom (ernal) im Rech- 
nr. Im Fachhandel kön- 
nen Sie solche Adapter 


oder auch Betriebssystem- 
umschaltplatinen bekom- 
men. Bei DEAL in Köln 
beispielsweise. 

Zurück zum Einbau. 
Öffnen Sie Ihren Rechner 
und klappen Sie die Tasta- 
tur vorsichtig nach hinten, 
die einzelnen Port sollten 
auch nach hinten zeigen. 
Wenn Sie jetzt die Ab- 
schirmpappe nach vorne 
ziehen, können Sie direkt 
auf die Platine schauen. 
Links hinten, in der Nähe 
des Userports, finden sie 
2 „längere“ IC‘s, das sind 
Ein-Ausgabebausteine, 
rechts daneben finden sie 
noch 3 kleinere IC’s. Alle 
schön parallel angeordnet. 
Der Mittlere dieser drei 
ist der, welcher ausge- 
tauscht werden soll. 
Wenn Sie Glück haben, 
ist dieses IC bereits ge- 
sockelt. In diesem Falle 
ziehen Sie das IC vorsich- 
tig aus dem Sockel und 
stecken Sie nun Ihren 
Adapter mit Eprom (Ker- 
be nach vorn, Richtung 
Userport) in die Fassung. 
Sollte Ihr Kernal einge- 


lötet sein, so müssen Sie 
die Computerplatine aus- 
bauen und das Kernal 
auslöten und einen Sockel 
einlöten. Achten Sie bitte 
beim Ausbau der Platine 
auf verschiedene Kabel, 
die zum Gehäuseoberteil 
führen. Auch beim Aus- 
löten ist größte Vorsicht 
geboten, denn sehr schnell 
sind die dünnen Leiter- 
bahnen auf der Platine 
verletzt, auch das IC 


kann durch zu hohe Tem- 
peratur des Lötkolbens 
beschädigt werden. Am 
besten ist es, wenn Sie 
diese Arbeit von einem 
Fachgeschäft (Radio/ 
Fernseh-). ausführen las- 
sen, denn diese haben 
Speziallötgeräte und evtl. 
auch die größere Erfah- 
rung in solchen Dingen. 
Bauen Sie Ihren Rech- 
ner wieder zusammen, 
denken Sie an die Kabel, 
schließen Sie alles wieder 
an und geben Sie Ihrem 
Prunkstück „Saft“. Jetzt 
gibt es nur zwei Möglich- 
keiten: Es geht oder es 
geht nicht. Im letzteren 
Falle alles nochmal über- 
prüfen und gegebenen- 


.falls ein neues Eprom 


brennen. Wenn dies der 
Fall sein sollte, werden 
Sie spätestens jetzt auf 
den Knien liegend Dan- 
keshymnen singen, wenn 
Sie Ihr Keranal unbeschä- 
digt aus dem Rechner be- 
kommen haben. 

Merke: Ohne Kernal. 
kein Leben mehr im 
Rechner. 


SERVICE 


EINFACH: 
AOKB PER 
SOFTWARE 


Ein Aprilscherz hatte Folgen. Zum Beispiel diesen 


Wer die April-Ausgabe 
der COMMODORE WELT 
gelesen hat, dem ist sicher 
unser April-Scherz aufge- 
fallen. Natürlich kann der 
C64 nicht softwaremäßig 
mit 1 Mega-Byte Speicher 
ausgerüstet werden und 
einen Atari 520 simulie- 
ren. Den meisten ist dies 
wohl bereits beim Lesen 
des Textes aufgefallen. 

Diejenigen, welche ge- 
wohnheitsmäßig die Pro- 
gramme abtippen, bevor 
Sie lesen, wozu die gut 
sind, werden den Scherz 
spätestens beim ersten 
‚READY‘ sprich ‚APRIL 
APRIL‘ erkannt haben. 

Aber so wie die meisten 
Geschichten einen wahren 
Hintergrund haben, so 
hat auch unser Programm 
einen guten Kern: Sie ha- 
ben damit tatsächlich 
mehr Speicher für Basic 
zur Verfügung. Zuerst 
aber kurz ein paar Erklä- 
rungen zum Programm, 
damit Sie es leicht für 
eigene Zwecke einsetzen 
können. 


Nix mehr 
mit April 


Nachdem das Maschi- 
nenprogramm eingelesen 
und das Betriebssystem 
und der Interpreter ins 
RAM kopiert wurden 
(wo sie dann verändert 
werden können), wird in 
Zeile 215 die READY- 
Meldung in APRIL AP- 
RIL umgewandelt und in 
Zeile 225 der Text, wel- 
cher beim Einschalten 
immer erscheint, verän- 
dert. Dieser Text wird 
dann mit SYS51320 aus- 
gegeben. Wollen Sie den 
Text verändern, so müs- 
sen Sie nur darauf achten, 
daß er nicht länger wird 
und in den DATA-Zeilen 
die entsprechenden ASCH 
Codes der Zeichen aus- 
tauschen. SYS 51200 ko- 
piert den Originalzeichen- 
satz vom ROM ins RAM 
(ab 53248) und verändert 


Artikel, der keiner ist. 


diesen dabei, indem jedes 
Byte mit 60 AND.ver- 
knüpft wird.. Das heißt, 
daß nur die inneren 4 Bit 
stehen bleiben. Dabei 
wird das ‚M‘“ noch extra 
verändert, da es sonst et- 
was unvollständig aus- 
sieht. Wenn der Zeichen- 
satz bei 53248 beginnt, 
muß der Bildschirmspei- 
cher auch im oberen Vier- 


tel des Speichers liegen. 
SYS51246 verlegt den 
Bildschirmspeicher nach 
49152. So und jetzt wird 


es interessant: 


40137 BASICBYTES 
FREE! 


Solange man mit den 
oberen Bildschirmen (ab 
49152, auch ab 50176 ist 


Blockverschiebung 


1 rem blockverschieberoutine 
2 fori=828t086@:reada:pokei,a:nexti 
4 data173,93,3,194,94,3,133,95,134, 
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6 data173,95,3,174,96,3,133,98,134, 
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8 data173,97,3,174,98,3,133,88,134, 


89,76,191,163 


18 rem interpreter ins ram 
12 fori=861t0866:pokei,®:nexti 
14 poke862,1680:poke864, 192:pokeB66, 


192:sys828 


15 rem kernal ins ram 
16 fori=861t0866:pokei,®:nexti 
18 poke862,224:sys828 


98 rem korrektur rom >? 


-> rom 3 


188 fori=58579t058588:readx:pokei,x 
:naxt:fori=58748t058777:readx:pokei 
‚x: next:fori=59911t059922:readx:pok 
ei,x:next:poke58549, 129:poke58914, 1 
A45:poke58915,229:poke61332,76:poke6 
1333, 211:poke61334, 228:poke65498, 3: 
data133,169,169,1,133, 171,96, 173,13 


4,2 


111 data32,249,233,169,39,232,188,2 
17,48,6,24,105,48,232,16,246, 133,21 
3:data76,36,234,228,201,249,3,76,23 
7,230,96,234:data32,218,228, 169,32, 
145,209, 136,16,246,96,234 

288 poke1,5:print"Skernal und inter 
preter sind jetzt im ram" 


möglich, siehe 60 Zei- 
chen-Programm arbeitet, 
kann man den in Basic 
nutzbaren Speicher ver- 
größern. Arbeitet man 
mit Diskette, kann man 
den Basicanfang auf 820 
verlegen: 
POKE820,0:POKE43,53: 
POKE44,3 

Jetzt hat man 1228 Byte 
mehr Speicher. Mit Data- 


. sette kann der Basican- 


fang auf 1024 verlegt wer- 
den: POKE1024,0:POKE 
44,4 

Nun, das ist zwar kein 
Mega-Byte, sondern nur 
etwas mehr als ein Kilo- 
Byte, aber das ist doch 
auch schon etwas. Damit 
aber noch nicht genug. 
Sie haben nun auch noch 
ein originelles Werkzeug, 
um in Windeseile den Zei- 
chensatz zu verändern. 
Sie haben ja gesehen, wie 
der Zeichensatz aussieht, 


Freude am 
zusätzlichen 
Speicher 


wenn man durch ‚AND 
60° nur 4Byte übernimmt. 
Fügt man folgende Zeile 
ein, so hat man den Ori- 
ginalzeichensatz: 

122 POKE 51218,255: 
POKE 51345,96 
Nachdem das Programm 
nun gestartet wurde, ge- 
ben Sie mal im Direkt- 
modus ein: 

FOR I=1 TO 255: POKE 
51218,1:SYS51200: 
PRINT 
CHR$(19)I:WAIT198,1: 
POKE198,0:NEXT 

Sie können jetzt auf, Ta- 
stendruck alle 255 Mög- 
lichkeiten durchspielen 
und links oben die ent- 
sprechende Zahl in 51218 
ablesen. Suchen Sie sich 
eine aus und freuen sich 
am zusätzlichen Speicher. 
Zum normalen Zustand 
kommt man mit: 
POKE56576,152:POKE 
53272,21:POKE648,4: 
POKE1,55 
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LISTSCHUTZ 
FÜR PROFIS 


Unsere Serie über die Listschutzmethoden hat bei den 
Lesern großen Anklang gefunden. Hier ist der letzte 
Teil. Nehmen Sie sich also noch einmal das Heft 4/86 
zur Hand und frischen Sie Ihre Kenntnisse über List- 
schutzmethoden auf. 


-Wird einem Farb- und 
Steuercode zwischen 128 
und 160 ein 141 vorge- 
stellt, so wird zunächst 
das SHIFT/RETURN aus- 
geführt und die darauf- 
folgenden Steuerzeichen 
stehen alleine auf der 
nächsten Zeile. Und 
prompt werden sie auch 
ausgeführt, was ohne 141 
unmöglich ist. Es geht 
auch mit dem Code 13 
(RETURN). 

Das wollen wir doch 
mal näher betrachten: 
Geben Sie bitte ein: 
1PRINT“: (CLEAR) (6* 
DOWN) (6*RIGHT) 
(BLACK)HALLO(BLUE) 
(6*UP)” 

Anstelle der Klammer- 
ausdrücke muß die ent- 
sprechende Taste gedrückt 
werden. Zum Beispiel für 
(CLEAR) drückt man 
SHIFT/CLR HOME. Nun 
noch folgendes eingeben: 
POKE 2055,141:LIST 

Es steht ein schwarzes 
HALLO einsam am Bild- 
schirm und sonst scheint 
sich nichts mehr zu tun. 
Die READY-Meldung 
und jede Eingabe ist jetzt 
wegen der blauen Farbe 
unsichtbar. Mit diesem 
Trick kann man also 
Listings verschwinden las- 
sen oder beliebig einfär- 
ben (Zum Verschönern 
von Listings mit solchen 
und ähnlichen Methoden 
habe ich ein Programm 
(Listingchanger) geschrie- 
ben, das in der CBM-RE- 
VUE 5/85 S. 42 erschie- 
nen ist.) Der aufmerksa- 
me Leser hat sicher be- 
merkt, daß uns noch. die 
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Codes kleiner 32 fehlen. 
In Tabelle 1 sind alle 
Steuercodes zusammenpge- 
faßt. Besondere Beach- 
tung verdienen noch die 
13, die 19, die 20 und die 
31. Das Tolle an den Co- 
des unter 32 ist die Tatsa- 
che, daß sie auch beim 
Listen ausgeführt werden, 
13 und 20 sogar innerhalb 
von Anführungszeichen. 
Vielleicht kennen Sie die 


Diskettenknacken? Jetzt nicht mehr 


Methode, wie ıman mit 
dem Code 20 (DEL) Zei- 
len oder Teile davon un- 
sichtbar machen kann. 
Hier ein Beispiel: 
1 PRINT „TEST“:GOTO 
1:REM“TTTTTTTITTT 
Hierzu muß man (nur 
für die, die es noch nicht 
wissen, nach REM 2 mal 
Anführungszeichen, 1 
mal DEL, 12 mal SHIFT/ 
INST und 12 mal DEL 


drücken (diese erscheinen 
als in-verse T). Durch die- 
se Manipulation ist das 
GOTO 1 verschwunden. 
Interessant ist die Kombi- 
nation mit KEMSHIFT/L: 
1 REM 
2 REM“TTTTTTT“L 
(L=SHIFT/L) 

Dadurch, daß ein DEL- 


Code mehr eingegeben ' 


wurde, als zum Löschen 
von REM und Zeilennum- 
mer nötig, wandert das 
zweite Anführungszeichen 
(wichtig, da sonst SHIFT 
/L als Grafikzeichen ge- 
listet wird und keinen 
SYNTAX ERRORhervor- 
ruft) an das Ende der Zei- 
le 1, so daß es aussieht, 
als wäre der Fehler in 
Zeile 1. Anstelle der Gän- 
sefüßchenmethode kann 
man die 20 auch in vor- 
her reservierte Speicher- 
stellen POKEn. 

Eine andere Möglich- 
keit, den „Gegner“ zum 
Löschen einer ' falschen 
Zeile zu verlocken, ist der 
RETURN-Coe (13): 

10 REM TEST*20 REM 
L (wieder SHIFT/L!) 

das Sternchen überPO- 
KEn wir jetzt mit POKE 
2062,13. Dadurch er- 
scheint beim Listen auf 
dem Bildschirm: 

10 REM 

20 REM 
SYNTAXERROR 

Der Versuch, Zeile 20 
zu löschen, ist natürlich 
sinnlos. Dabei wird nur 
die tatsächliche Zeile 20 


gelöscht. 

Durch 

OREM (RETURN) 
POKE 2054,31:POKE 


2051,255:POKE2052, 
255 

kann man das ganze Li- 
sting blau einfärben und 
somit unsichtbar machen. 
Hierbei darf das Zurück- 
setzen der Zeilennummer 
im Programm nicht ver- 
gessen werden. 

Um zu verhindern, daß 
ein geschütztes Programm 
nach irgendwelchen Än- 
derungen, wie z.B. dem 
Entfernen des Copyrights, 


noch lauffähig bleibt, 
gibt es wiederum verschie- 
dene Methoden. 

Da ist zunächst eine im 
Programm versteckte Ab- 
frage nach dem Inhalt be- 
stimmter Speicherstellen, 
wie z.B. 45 und 46, oder 
FRE(0). 

Zum Beispiel: 
1000 if fre(0) () xxxxs 
then new 

Für xxxxx wird der 
Wert eingesetzt, den man 
bei fertigem Programm 
mit ?fre(0) erhält. 

IF GOTO=END THEN 


Eine sehr interessante 
und weniger bekannte 
Methode ist die Verwen- 
dung von „unmöglichen“ 
Variablennamen wie ST, 
END, TO, IF ... Versuchen 
Sie einmal, der Variablen 
ST den Wert 3 zuzuord- 
nen: 
1ST = 3.?ST 

Das geht normalerwei- 
se deshalb nicht, weil ST, 
IF ... zu den reservierten 
Wörtern gehören. Auch 
an dieser Stelle kann man 
den Computer „überli- 
sten“. Tippt man inner- 
halb eines reservierten 
Wortes einen geshifteten 
Buchstaben ein, wo wird 
das Wort nicht erkannt 
und als Variablename ein- 
gestuft: 

1 E(SHIFT/E)ND = +: 
PRINT E(SHIFT/E)ND 
ergibt beim Listen: 

1 END = 3:PRINT END 
und mit RUN wird END 
als normale Variable be- 
handelt. Wenn Sie aber 
mit dem Cursor auf die 
Zeile fahren und RE- 
TURN drücken, läuft es 
natürlich nicht mehr (Se- 
hen Sie sich mal mit dem 
MINIMONITOR den 
Speicherinhalt in beiden 
Fällen an.). Es ist nicht 
schwer, sich nun mit die- 
sen Kenntnissen einige 
Fallstricke durch Kom- 
bination der Möglichkei- 
ten selbst auszudenken. 

Doch Halt. Wir haben 
noch etwas sehr wichtiges 
vergessen. Was machen 


wir, wenn der „unbefugte 
Lister‘ einen Drucker be- 
sitzt? 

Hier muß man sich ein 
wenig mit der Druckeran- 
steuerung beschäftigen. 
Der Code 8 erzeugt am 
Bildschirm eine Verriege- 
lung der Umschaltung 
zwischen Groß- und 
Kleinschrift. Beim Druk- 
ker wird dadurch in den 
Grafik-Modus umgeschal- 


tet, und er erwartet eine 


Grafikinformation. Folgt 
auf die 8 eine Zahl klei- 
ner 128, so bricht der 
Drucker das Listing ab. 
Außer durch hineinPO- 
KEn in den entsprechen- 
den Speicherbereich kann 
man den Coe 8, welcher 
auf dem Schirm als rever- 
ses H erscheint (nach “), 
durch folgende Methode 
einsetzen: 
10 rem test‘ (CTRL/H)“ 
Sie merken die Wirkung 
dadurch, daß sich nach 
dem Listen der Groß/ 
Kleinmodus nicht mehr 
einstellen läßt. 


Das stoppt 


jeden Drucker 


Leider gibt es aber 
Drucker, die sich um nicht 
druckbare Zeichen gar 
nicht kümmern. 

Daher zeigen wir jetzt 
noch eine wesentlich bes- 
sere Methode, welche un- 
seres Wissens immer funk- 
tioniert: 

10 :::::PRINT ABC 
PIKE 2053,0:LIST 

Dadurch steht am An- 
fang der Basiczeile eine 
Null, wodurch der Com- 
puter ‚denkt‘, daß sie hier 
auch schon zuende ist. 
Beim Programmdurchlauf 
werden jedoch die vier 
auf die Null folgenden 
Zeichen übersprungen. 
Hier haben wir nun einen 
Listschutz, der (endlich) 
sowohl auf dem Schirm 
als auch auf dem Drucker 
funktioniert. 

Un damit kommen wir 
zum Ende der uns be- 
kannten Listschutzme- 


thoden. Man kann auch 
noch mit Veränderungen 
der Basicendeadressen in 
45 und 46 experimentie- 
ren. Zum Beispiel, indem 
man die drei Nullen am 
Basicende wegPOKEt 
und die Adresse in 45 
und 46 erhöht. Im Pro- 


Selbermachen 
ist der Sinn 


gramm müssen sie dann 
wieder zusammen mit der 
letzten Linkadresse vor 
der letzten Zeile wieder- 
hergestellt werden. Die 
Ergebnisse dieser Metho- 
de sind aber stark vom 
Inhalt der Speicherzellen 
vor dem Laden des Pro- 
gramms abhängig und 
schinen uns nicht so emp- 
fehlenswert. 

Last but not least: 

Man kann sein Pro- 
gramm auch noch ver- 
schlüsseln. Eine wirksame 
Methode dazu wurde in 
der CBM-REVUE 2/86 
beschrieben. Hierbei wird 
der gesamte Speicherin- 
halt durch eine EOR-Ver- 
knüpfung verändert, so 
daß das Programm nur 
noch mit einem Codewort 
zum Laufen zu bringen 
ist. Zum reinen Listschutz 
eignet sich die Methode 
weniger, denn will man 
das Programm (nur zur 
Benutzung) weitergeben, 
so muß man auch das 
Paßwort preisgeben und 
damit kann man das Pro- 
gramm ja entschlüsseln. 
Jede Listschutzmethode 
ist nur solange wirksam, - 
wie sie niemand kennt. 
Aber auch mit diesen, 
nun allen CBM-Lesern be- 
kannten, Tricks kann 
man durch Kombination 
verschiedener Methoden 
einen sehr wirksamen 
Schutz aufbauen, der 
zum Knacken fast soviel 
Zeit und Kenntnisse er- 
fordert, wie das Pro- 
gramm selbst zu schrei- 
ben. Und das ist ja der 
Sinn des Ganzen. 

(rsf) 
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MATHE- 


TRAIL 


Nach dem Starten des 
Programmes wird man zur 
Eingabe seines Namens 
und des aktuellen Datums 
aufgefordert. Diese Anga- 
ben werden beim Ausdruck 
* der Gesamtauswertung 
gebraucht. 
Dann erscheint das Menü. 
Addition 
Subtraktion 
Multiplikation 
Division 
Gesamtauswertung 
Level ändern 
Programm beenden 
Rechts neben dem ersten 
Menüpunkt ist ein Pfeil 
(«-) zu sehen, der mit den 
Funktionstasten Fl und 
F7 auf und ab bewegt 
werden kann. 
Steht er neben dem ge- 
wünschten Punkt, wählt 
man diesen mittels 
RETURN an. 


1.) Addition 


Nach Anwahl dieses 
Menüpunktes wird man 
aufgefordert, eine Taste 
zu drücken. Ist dies er- 
folgt, erscheint die zu lö- 
sende Aufgabe und die 
Zeitzählung beginnt. 
Nach Eingabe des Ergeb- 
nisses zeigt der Computer, 
ob dieses falsch oder rich- 
tig war und gibt entspre- 
chend die richtige Lö- 
sung aus. 
Dann wartet er. 
Nun kann man folgende 
Tasten drücken: 
1. SPACE: die nächste 
Aufgabe wird gestellt 
2. «- : der Computer kehrt 
ins Menü zurück 
3.g: die Gesamtwertung 
wird ausgegeben. 


Der Computer reagiert 
entsprechend auf einen 
Tastendruck. 


2.) Subtraktion 


Bedienung wie bei “Addi- 
tion“, nur werden diesmal 
Subtraktionsaufgaben 
gestellt. 


3.) Multiplikation 


Bedienung wie bei “Addi- 
tion“, nur werden diesmal 
Multiplikationsaufgaben 
gestellt. 


4.) Division 


Die Division ist so zu be- 
dienen wie “Addition‘“, 
allerdings sind je nach 
Schwierigkeitsgrad ein 
paar Dinge zu beachten: 
Wenn man mit Nach- 
kommastellen rechnen 
will, muß das Ergebnis 
entweder auf 2 Nach- 
kommastellen gerundet 
eingegeben werden oder 
es müssen 3 oder mehr 
Nachkommastellen einge- 
geben werden. 

Rechnet man in höheren 
Schwierigkeitsgraden oh- 
ne Nachkommastellen, 
kann es zu längeren Warte- 
zeiten kommen, da der 
Computer zwei bis zu 
vierstellige Zahlen finden 
muß, die ohne Nach- 
kommastellen dividier- 
bar sind. 


ch$ Bildschirm löschen 
(=chr$(147)) 

d Feldnummer für 
Durchschnittszeit 

da$ aktuelles Datum 

fa Fehleranzahl bei 
Additionsaufgaben 
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Die nächste 
COMMODORE-WELT 
erscheint am 25.Mai 


fd  Fehleranzahl bei 

Divisionsaufgaben 

Fehleranzahl bei Mul- 

tiplikationsaufgaben 

fs - Fehleranzahl bei 

Subtraktionsauf- 

gaben 

=chr$(186) 

i Schleifenzähler 

) Schleifenzähler 

1$  eingegebenes Ergeb- 
nis des Benutzers 

ll  eingegebenes Ergeb- 
nis als Zahl 

12 _ Divisionsergebnis auf 
zwei Nachkomma- 
stellen gerundet 

le derzeitiger Schwierig- 

keitsgrad (1-4) 

Name des Anwenders 

wird zur Levelände- 

rung benötigt 

nl wird zur Levelände- 

rung benötigt 

[6) wird bei Ausgabe der 

Zeitentabelle ge- 

braucht 

Cursor rot (=chr$ 

28)) 


s Feldnummer für 
Schlechtestzeit 

s$ Einheit bei der Zeit- 
ausgabe (Sekunde/ 
Sekunden) 

sP Spaltennummer für 
Cursorposition 

st  Statusvariable 

t$ wird für die Hard- 
copyroutine benötigt 

t Zeit,die bis zur Ein- 
gabe verbraucht wur- 


de 
tl auf2 Stellen gerun- 
dete Eingabezeit 


t2$ wird für die Hard- 
copyroutine benö- 
tigt 

t2 Durchschnittszeit 

ti Variable zur Zeit- 
messung 

w  Wertebereich für zl 
und z2 

wh$ Cursor weiß 
(=chr$(5)) 

z richtiges Ergebnis ei- 
ner Aufgabe 


zi 1. Zufallszahl 

z2 2. Zufallszahl 

z3 Divisionsergebnis 

ze Zeilennummer für 
Cursorposition 

zt Speicher für Best-, 
Schlechtest- und 
Durchschnittszeit 
(wird als Feldvaria- 
ble auf 48 dimensio- 
niert 

Wem die Wartezeit zu lang 

ist, der kann sich durch 

Druck der Taste « ins 


am 


Menü zurückversetzen 
lassen. 


5.) Gesamtauswertung 


Sobald dieser Menüpunkt 
angewählt wurden, wird 
der Benutzer gefragt, ob 
die Ausgabe auf Drucker 
erfolgen soll. 

Tippt man ein ‘j“ und 
hat den Drucker nicht 
eingeschaltet, merkt das 
der Computer und fordert 
auf, diesen Fehler durch 
Einschalten des Druckers 
zu beheben oder eine 
Taste zu drücken, wobei 
dann auf eine Drucker- 
ausgabe verzichtet wird. 


6.) Level ändern 
Der auf dem Bildschirm 


- angezeigte Level kann 


mit den Funktionstasten 
Fl und F7 verändert 
werden. 

Mit F3 kann man, falls 
erwünscht, ein negatives 
Ergebnis bei Subtraktions- 
aufgaben zulassen. 

Mit F5 kann man, wenn 
erwünscht, Nachkomma- 
stellen bei Divisionsauf- 
gaben zulassen. 

Mit RETURN kommt 
man ins Menü zurück. 


7.) Programm beenden 


Nach Anwahl dieses 
Menüpunktes löscht sich 
das Programm von selbst 
(mittels SYS 64738). 


VARIABLENLISTE: 


a$ wird bei ‘get‘-Abfra- 
gen verwendet 

a hat den Wert .1E-27 
und wird bei der Ge- 
samtauswertung 
gebraucht 

aa Anzahl bisher gefrag- 
ter Additionsauf- 
gaben 

ad Anzahl bisher gefrag- 

ter Divisionsauf- 

gaben 

Anzahl bisher gefrag- 

ter Multiplikations- 

aufgaben 

as Anzahl bisher gefrag- 
ter Subtraktionsauf- 
gaben 

au Aufgabenart (1=Addi- 
tion, 2=Subtraktion; 
3=Multiplikation; 
4=Division) 

b  Feldnummer für Best- 
zeit 


Mathetrainrernr 


mathetrainersmussnunuununndg 


i& rem 

28 rem (p) commadare welt == 
SQ rem zuzazunzezzezesemszezzmanzusemnum 
48 rem (ec) by == 
S& rem erik jacobi = 
68 rem za 
78 rem version 2.9 4Qz/ascii '.- 
88 rem c-64 + 1541 == 
99 rem m mı zu zu uE mE ER DR uU SR EB ZE SE SR EU ER ZU DR U U DR ER DE DU AU U 
189 : 

118 clr 


128 poke53280, 6: poke53281,4:fprintch 
rs(14)chr#(8) 
138 ch®=chr#(147) !uhssechrs# (5) :res=c 
hr#(28) !hs=chr#(186) 
148 le=ilinlaiind=eli:a=, le-2?7:dimzt (4 
8),t2(16) ,aal16),as(16),am(iö),ad(i 
6) 
158 printwhschr#(147) :poke19, 644: inp 
ut"Ihr Name :"jnas 
169 ze=2:sp=d:90sub3299: input "Heuti 
Datum : "das 
178 :; 
rem 
rem titelbild/menueauswahl = 
rem un 2 8 ER ZU 20 U EU 2 2 UN DR GE SE GE SE DE ER ME DIR SEX EE DE DEN DE CE DR 
ifle=sithenw=9 
ifle=s2thenw=99 
ifle=3thenw=999 
ifle=4thenw=9999 
. 2509 sp=39: poke645,3:poke5328%, 6: pok 
«532681,6 
268 printchstab(1Q) "xaaxxx 
printtab(18)"x x xathe - 
printtab(19) "x x x 


298 print 

388 printtab(19) "trainer 
318 print 

328 printtab (8) "XR%%*" 


printtab (8) "#C#1985 by. .Erik..J 
acobi 

348 printtab (8) "Kx%" 

359 printresspc (F)!RRIRIITIIIHHII NR 
RRERKRIRKRIH 

368 printspc VIII 
KERRRRRK 

379 poke645,3:print:printiprinttabt 
19) "Addition. znonoeunnn 

38% printtab(1P) "Subtraktion. :csccıs 


3978 printtab(1@) "Multiplikation.... 
aa printtabt1iQ) "Division. connnnncne 
ai printtab(19) "Gesamtauswertung. . 


428 printtab(i9)"Level 


.488 


aendern...c.: 

43% printtab(19) "Programm 
beenden... 

44% ze=13:90s8uUb3Q9d: print"e" 

459 getan: ifas=e""thengSo 

468 ifas=echr#(13)then328 

478 ifa®=schrs(1364) thengosub3298: pri 
nt" "ize=mze+til:gonsub3R9d: print"e" 
ifas=schr#(133) thengosub389d: pri 
nt" "ize=mze-1:908uUb3Q09R: print"e" 
49% ifze=28thengosub3998: print" 
e@=13:908ub3998: print "e" 

509 ifze=1l2thengosub3@9%: print" 
e=19:g90subI3298: print"e" 

Ssi& goto459 

528 ifze=13thend8® 

530 ifze=14then?8% 
ifze=15theni1280 
ifze=16then1380 
ifze=i?7theni91® 
ifze=18then2?730 

58% ifze=19then3048 


ram ME zn zu u zu mE ER CU 0m ER DS DU DE DE SB ZU ZU 2 0 SE SU NS ER ZU 


rem = addition = 
rem [I 3 I 2 5 3 2 5 5 5 5 ı 5 5 ı ı 5 5 9 u nn ı 


678 : 

68% poke33289, 2: poke53281 , 2: s6="Sek 

unde":iaa=saa+l:ausl:igosub3139:aa(t3) 

maa(t3) +1 

698 printchschrs( 159) "IHHHHHHHHHRRRR 

KERRKRRTKTTTIIIHIINHIN NINE" 

788 printchAs(145) "#"spce(i4)chre(15 

BS) "Addition"spce(lä)chret 150) "#" 

718 printchre( 145) ! KKKHHHHTHHHHHHRRR 

KRRRHRKKRKRKÄRRTNRRRRKRKRRRR" 

728 zi=sint(rnd(i)#w) +1 

738 z2=int(rnd(i)%w) +Lizezi+z2 

748 printiprint:printtab (15) "HHHHR%* 

%" 

75% printtab(15) "*"chrs(158) "TASTE" 

chrs(1598) "%" 

768 printtab( 13) "RRRHRRR" 

778 poke198,2:waiti98,1:pokeil98,% 

789 t=sti:print:print:print"Aufgabe: 
"zi" + "z2 

79% pokeil9,64:printchrs($) :input"Lo 

esung: "I18:pokel9,® 

898 sp=d: ze=13:gosub3R9R 

818 ifval(l®)=zthenprintchr#s(159) "R 

ICHTIG" 

82% ifvaltls)<>zthenprintchr#(158)" 

FALSCH": fa=tfar+i 

839 ifvaltis)<>zthenprintiprintchr® 2» 
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MDMathetrainer 


(5) "Richtige Loesung: "jz 

848 tetti-t)/b6:timint(t%1900+.5) 7/10 

[.] 

85% ifti>iort<ithenssess+"n" 

862% print:printchr#s(144) "Benoetigte 
Zeit: "tir "surt2kt3)et2it3) +ti 
87% zttd)=sintt(t2(t3)/aalt3))X190+. 
5)/108 

882% gosub&3535 

892 getaß: ifas=""thens92 

IRB itam="e"then21® 

919 ifas=" "thensße 

.928 itas="g"’theni91® 

938 gato89® 

948 rem "TARZRESABEREBEARBRZERERENE 
958% rem subtraktion = 
96Q rem SEZEESZEERBENBZERBERBRERER 

978 : 
989 poke3328%, 2: poke53281,2:n6="Sek 

unde":ias=as+i:au=2:90sub3130:as(t3) 
nas(t3) +1 

998 printchechrs( 150) KHK 

WIIIIIIIIIHIIIHHHIHHIHHHI HR" 

1888 printchrs(145) "#"spc(i2)chresi(i 

58) "Subtraktion"spc (15) chrs( 159) "x" 
1818 printchrs( 143) ! KRRKRRHRRIHRTRR 

KRITIK" 

1828 zi=sinttirnd(1)%w) +1 

1838 z2=int(irnd(1)%w)+1l:z=ezi1-z2 
1848 ifnl=slandsgn (z)=-itheni19022 
1859 print:print:printtab (15) "KH 

4%" 

18689 printtab(15) "*"chrs(158) "TASTE 
"chrst159)*"%" 

1878 printtab (135) "HH" 

109889 pokei98,2:waiti198,1:poke198,% 
19899 t=eti:print:printiprint"Aufgabe 
ı "zii" - "22 

1188 poke19, #4: printchrs(5) :input"L 

oesung: "I18:pokel9,8 

1119 sp=d: ze=13:g90sUub399A 

1128 itvalt(i®)=zthenprintchrs(158) " 

RICHTIG" 

1139 ifvaltis)<>zthenprintchrs(159) 
"FALSCH": Fae=ts+1 

‚4198 ifval(ls)<>zthenprint:iprintchr 

(5) "Richtige Loesung! "iz 

1159 tmtlti-t)/As:timint(t4190+.5) /1 

2a 

1168 ifti>iort<ithenssess+t"n" 

1178 print:printchr#(144) "Benoetigt 

e Zeit: "ti" "awit2(t3)et2it3)+ti 
1189 zt(d)=sint((t2(t3)/as(t3) )t129+ 
:5)/188 

1192 gosub65535 

1298 getaß: ifas=""theni1209 

1219 ifas="e"then21 

1228 itfas=" "then98o 
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ifaße"go"theni919 

gotoi28Q 

rem ZSSZEZERZEZEZSSERSBSZRZSBEREME 
rem multiplikation = 
1279 rem zsSSzSESEZEZ2BEESEEEERNEEE 
126% poke53289, 2: poke53281,2:58="Se 
kunde":am=am+i1: au=3:g90sub3139: am(t3 
Jsam(t3) +1 

1298 printchschrs( 150) "HHHHHKHRHRHRH 
KERRRRKRKKKKTRRITTIIHHHHIHNH 

1388 printchrs(145) "’#"spc(li)chrsi(i 
58) "Multiplikation"spcti13)chrs(159) 
ny.. 

1318 printchrs (145) IHHRRHRRHRRHHHHRN 
WETIHHRHHIHIHHIHHRHHHHHHENR" 

1329 zi=sint(rnd(i)#w) +1 

1339 z2=inttrnd(i)%w)+1l:zmzi%z2 
1348 printiprint:printtab (13) "!H#% 
4%" 

1358 printtab (15) "*"’chrs(158) "TASTE 
"chrs(139)"%* 

1369 printtab (13) "HAARE" 

13782 pokeil98,8:waiti198,1:pokei98,% 
1389 t=eti:print:print!print"Aufgabe 
ı "zi" % "z2 

1399 pokel9,64:printchr®#(5) :input"L 
oesung: "Il: pokeil9, 9 

1998 sp=d: ze=13:90s8ub399% 

19418 itval(l®)=zthenprintchr#( 159)" 
RICHTIG" 

1929 itfval(l®8)<>zthenprintchr#s(159) 
"FALSCH": Fmetm+1 

1438 itvalti®)<>zthenprint:printchr 
s(5) "Richtige Loesung: "Iz 

1949 teiti-t)/66:tl=mint (tH10R+.5) /1 
28 

14589 ifti>iort<ithenssess+"n" 

19468 print:printchr#(144) "Benoetigt 
e Zeit: "ti" "aurt2tt3)mt2lt3) +ti 
1478 zttd)=sint((t2(t3) /am(t3) )H199+ 
5) /1920 

19488 gosub6S333 

1492 getas: ifas=""then1492 

1529 itas="e"then2i1 

1512 ifas=e" "then1289 

1528 ifas="g"theni91® 

1532 goto149% 

154% rem sasza225Snan2S2ESEBEB2SREnEnR0m 
1538 rem = division m 
156% rem zsSEz2nEESESEERZESBERBBERERE 
1578 ; 
15862 poke53289,2:poke353281,2:s0="Se 
kunde":iad=ad+il:au=4:gosub3139d: ad (t3 
Jmad(t3a)+i 

1598 printchschrs( 159) " HEREIN HKIKR 
KIIIIIIIIITIIIHHHHHHHHNN" 

1688 printchr#(145) "*"spce(i4)chres(i 
58) "Division"spc (liö)chrs( 159) "%" 


1238 
1249 
1259 
126% 
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1618 printechrs (145) ! RER KRINR 
REHKRKKRTTNRIIITEIIIIEHIHHNN 

1628 zi=int(rndti)#w) +1 

1638 z2=int(irnd(i)%w) +i:!zez1/z2:23= 
zı zzint(z#10Q0+.,5)/1288 


1648 getaß:ifaß="e'thenad=ad-Iiadit. 


3)=ad(t3)-1:g90t0219 

1658 ifnd=1andz3<>int (z3)then1429 
1668 print:printiprinttab (15) "KR % 
x" 

1678 printtab (15) "*"chrs(158) "TASTE 
"chrs(159)"'%" 

1588 printtab (15) "HH" 

169% pokei198,9:wait198,1:!poke1l96,% 
1788 teti:print:print:print"Aufgabe 
ı "zii" / "22 

17189 pokel9,64: BESDEEHPEISTEINRUETT 
oesung: "18 

1728 sp=d: ze=15:908ub399% 

17394 li=mval(ıW) 

1748 12=int(11%100+.5)/19% 

1758 ifl2=zthenprintchrs(159) "RICHT 
ich, 

1768 i#12<>zthenprintchrs(150) "FALS 
CH"itdmtd+ri 

1778 i#12<>zthenprint:!printchrs(5)" 
Richtige Loesung! "Iz 

1789 taiti-t)/s6:timint (tH1909+.5) /1 
28 

1798 ifti>lort<ithenseese+"n" 

1888 print:printchr®(144) "Benoetigt 
e Zeit: "ti" "surt2lt3)at2it3) +ti 
1819 zt(d)eint((t2(t3) /ad(t3) )H190+ 
:5)/108 

182% gosub45535 

1838 getaß: ifas=""theni83% 

1849 ifas="e"thenzi® 

185% ifap=" "theni588 

1848 ifam="g"theni9i1 

1878 goto18398 

1868 rem s=zzzunz2zznzusamnazmszamzammm 
1898 rem = gesamtauswertung = 
Ai92Q4 rem sunnnnmnannzzanmanamamunnmnum 
1919 pokeS3289,2:poke53281,2 

1928 printchswhs"Ausgabe auf Drucke 
r t(j/n) ?" 

19329 getas: ifas=""theni939 

1949 Ita" "thend=e1:!goto197% 

1959 ifas="n"thend=2:90t02038 

19529 goto1939 

1978 open4,4: poke768, 185: print#4:cl 
ose4: poke?768, 139 

198% ifst<>-128then2938 

1998 ze=S:5p=d:g0sub3298 

2288 print"Bitte den Drucker einsch 
alten oder Taste druscken !!" 

22819 getan: ifask)""then2938 


2839 poke53282,2:poke53261,2 

2848 printchschr# (159) YERRRHHHRHHER 
KIIIIHIHEIHHHHRIHIHIHIHHHHHHHR" 

2858 printchr®s(145) "#"spc(iM)chrati 
58) "Gesamtauswertung"spc (i12)chrs(15 
By"%" 

2868 printchrs( 145) IHREN 
KIIIIIIIIIIIHHHHHH NR" 

2878 printchr®#(158) 

2280 print"Gestellte Additionsaufga 
ben: "aa 

2298 print"Davon falsch: 
2188 print"Fehlerquote: 
ara) "%" 

2118 print:print"Gestellte Subtrakt 
ionsaufgaben!: "as 

2128 print"Davon falsch: 
2138 print"Fehlerquote: 
Bra) ) HAB) "%" 

2148 print:print"Gestellte Multipli 
kationsaufgaben!: "am 
2159 print"Davon falsch: 
216% print"Fehlerquote! 
mta))HLOR) "%" 

2178 print:print"Gestellte Division 
saufgaben: "ad 

2188 print"Davon falsch: 
219% print"Fehlerquote: 
d+a) ) KLAR) "%" 

2228 poke198,8:wait198, l:pokei98,% 
2218 ifd=landst<)>-128thengosub2698 
2228 printch#tab(S)chrs#s(158) "ZEITUE 
BERSICHT (in Sekunden)" 

2238 print IHRHRRBRRRRBRRRHHHHHHRHH 
KRRRÄKKNKKHRRR" 

2248 print"*L%* Add...* Sub...%* Mul. 
..* Div...%..%" 

2258 print HRRRRRRRHRHRHRHRHHHHHHRN 
RRÄRKKRKRRRKHRRR" 

2260 zem4d:sp=d: 1\S="% %"’:!gosub319 
2279 sp=34:90sub3099: print"*Bz%" 
2289 ze=S:sp=d: 1S=m"%1%":gosub31QR 
2290 sp=34: g90sub39899: print"*Dz%+" 
2308 zemö:iup=d:1lu="% %":gosub31Qd 
2318 sp=34:g0sub3999: print"*Sz%" 
2328 print HRRRRRRRRRHRHRHHHHHHHHTN 
KERRNKKKKRTRTR" 

23309 ze=ö:sp=d:1le="% %":!gosub319Ad 
2349 sp=34:g0s8ub3999: print"HBz%+" 
2359 ze=9:;sp=d: 18="%2%":gosub3108 
2368 sp=34:g0sub3Q9%: print"*Dz4" 
2379 zesißd:sp=d:lu="% #":gosub31AR 
238% sp=34: g0osub3999: print"HSz" 
2398 print RRRBRRRRHRHRRRHHRHHHHHERN 
KERN" 

2428 ze=si2:np=d:l0="% #":g0sub310R2 
2418 sp=34:g90sub3999: print"*Bz*" 


"ta 
"int((fa/ta 


"fs 
"int((fs/(a 


“£m 
"intttfm/(a 


"fd 
"intlttfd/ta 


2429 ze=i3:sp=d:19=m"43%":gosub2lgd 39 
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2828 goto19?78 
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2432 sp=34:g08ub3899: print "*Dz%*" 
2449 ze=s14:sp=d: 1U="% %"!g0osub319% 
2459 sp=34:90sub3B99: print"*5z%" 
2468 Print RRRRRRRHHERBRBHRBRBREHEN 
KEITEN" 

24729 ze=iö:sp=d: IS="% %":g0osub319R 
2489 sp=34:90sub3299: print"*Bz%*" 
2498 ze=i7inp=d: 19="%4%":gosub31BR 
250% sp=34:9g08ub3R92: print"*Dz%" 
2512 ze=i8:sp=d: 1e="% %":!90sub319% 
25289 sp=34:g0sub3B99: print "*5z%#” 
2538. print RIFF NR 
RERRRRKKINIIIR" 1 0= 0 

2548 pokei98,B:iwaiti98,i1:pokeil98,% 
2559 ifd=siandst<)-128thengosub2682 
23568 d=9d:goto21® 

2578 rem szezzezmzszzcezmgegezsmanzeeneı 
258% rem = hardcopyroutine m 
2599 rem zannznaSESBEZABZEBBATEZER 
2682 printchrs(144) 

261® openi,4,?7:print#1,chrs(14)spc ( 
4) "MATHETRAINER" 

26289 print#i,chrs(15)spc(8)"(c) 
5 by Erik Jacobi” 

263% print#1,chre(lS3spe(@)" nun 


2698 print#i,chr#s(14)spc (2) "GESAMTA 


198 


: VSWERTUNG" 


2638 print#i,chr@(i15)spc 14)" nn. 
266% print#i,chr#(15) "Fuer :"jna® 
2678 print#i1, "Datum :"Idas:closel 
2688 printchr#s(144)chrsti9)j:openi, 
4,7:o0pen2,3 

2699 fori=ito22:forj=1t0o20:getH#2,t# 
2788 printchr#(29) 1: get#2,t28: print 
ehrs(1S57)chrs(148) tst28} 

2718 printHi,tst2sj :next:print#i:ine 
xt:closeil:iclose2:ireturn 

2728 rem ZSEEEAZBEBEESBERZEEZERBEBENBEEBE 
2738 rem = level aendern = 
27429 rem SSmnzzezzzsannunnzzemeeesnm 
27528 poke33262, 18: pokeS53281,1% 

2768 printchschr# (28) " IH HR 
KREKKKKKKNTITTIITTIIIFHHHN HR" 

2778 printchrs(145) "%"spc(12)chrs(i 
58) "Level aendern"spc(13)chr#(28)"* 
U} 


2788 printchr#( 135) " IWEIHHHHHHHHHHRR 
KEITH" 

2799 sp=el6ö:ze=ii!: ee 
RR" 

2828 sp=19d: ze=ui2:g90sub32099 

2818 printchr#s(158) "Level: "Ichr#(28 
II "*’Ichrs(i1S8) I leichra(28) 1 "%" 
2829 sp=iö6: ze=13:908Ub3R99: print"** 
RR" 
2839 
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sp=d: ze=15:908uUb3099: print"Neg 


ative Ergebnisse bei Subtraktion"jc 
hr#(1358) 

2849 ifnl=dthensp=d: ze=16:90sub3R98 
sprint"ja.." 

2859 ifnl=ithensp=9: ze=16:g90sub3999 
sprint”nein" 

285% printchrs(28) 

26879 sp=d:ze=18:g90sub3299: print"Nac 
hkommastellen bei Division"jchr#s(15 
8) 

28683 ifnd=2#thensp=2: ze=19:905uUb3A98 
sprint"ja.." 

268989 ifnd=ithensp=d: ze=19:gosub329H 
sprint"nein” 

2989 getas: ifas=""then2908 

2918 itas=chrs(13) then2i® 

2928 itas=chr#(133)andle=4thenle=1:! 
got02888 

2939 ifaß=chr#(133)andle<4dthenle=ie 
+1:90t02898 

2949 ifas=echr#(136)andle=sithenle=4: 
9002888 

2959 ifasß=echr#(136)andle>ithenle=le 
-1:90t02809 

29689 ifas=echr#(134)andnl=ithensp=9: 
ze=16:908ub3992: print"ja "inl=d:go 
t03099 j 

2978 ifasß=chr®#(134)andni=dthensp=9: 
ze=16:908Ub3992: print"nein"inlei 
2989 ifaß=chr#(135)andnd=ithensp=d: 
ze=19:908ub3B9%: print"ja "ınd=d:go 
t0o3008 

2999 ifas=chr#(135)andnd=dthensp=2: 
ze=19:908ub3292%; print"nein"ind=i 
3ER goto29RR 

32129 rem zSZEaAnSzazzzZzacznunzEnEcanznm 
32282 rem = programm beenden = 
sSß32 rem snznnESEZERBERZBERBRRENMEM 
3848 printch#"’E NDE !":!8y864738 
325% rem zszzzznmannnunnazsunRzEnznumm 
3868 rem verschiedene unterpro- = 
3272 rem. gramme, routinen, abfragen= 
SBßBß rem ZESzZaZEESESEERERBERBRENEMEMZE 
3ß92% pokeZil,sp:poke2i4, ze:i8y8586448 
return 

3128 gosub3899:0=0+1:printis:isp=3:g 
osub309%: printzt(o) :o=orl 

3118 sp=19d:g908Uub3092: printzt(o):o=o 
+1 

3128 sp=18:90s5uUb3998: printzt(o):o=o 
+1:5p=26:908ub3099: printzt(o):retur 


n 
3138 ifle=silandau=sithenb=1:d=5:5=29:t 
3elsireturn 
3198 ifle=-Zandau=sithenb=i3:d=17:9=2 
1:t3=2: return 
31359 ifle=3andau=sithenb=25:d=29:8=3 
3: t3=e3: return 


316% ifle=s4andau=sithenb=37: d=41:g9=4 
3:it3=4: return 

3178 ifle=iandau=2thenb=2:d=6:8=19: 
t3=S5: return 

3188 ifle=s2andau=s2thenb=14:d=e18:5=2 
2:t3=6ireturn 

319% ifle=3andau=sz2thenb=24:d=39: g=3 
4: t3=?ıreturn 

322% ifle=4andau=s2thenb=38: d=42:5=4 
6:t3=8: return 

32129 ifle=miandausäthenb=3:d=?7:g=11: 
t3=9; return . 

322% ifle=Zandau=3thenb=15:d=19:8=2 
3:t3=18: return 

3238 ifle=3andau=3thenb=27: d=31:9=3 
S:t3=slltreturn 

3248 ifle=4andau=s3thenb=39:d=43: 3=4 
?7ıt3=12:return 

3259 ifle=miandau=s4thenb=4:d=8:g=12: 
t3=s13i return 

3269 ifle=2andau=4thenb=14:d=29:3=2 
4: t3eldi return 

3278 ifle=3andau=sdthenb=28: d=32:5=3 
6:t3=1S: return 

3288 ifle=s4andau=4thenb=49: d=44:a=4 
8:t3=e1löd: return 


3298 ifzt(b)=sßdthenzt(b)=ti 

33RB ifzt(s)=öthenzt(s)=ti:return 
3318 ifztib)>tithenzt(b)=ti:return 
3328 ifzt(s)<tithenzt (s)=ti:return 
3338 return 

334% rem mathetrainer ==auzznnmnncäd 
3350 rem 38911 bytes memory zum 
3369 rem 18968 bytes program zum 
3378 rem 20056 bytes variables ==. 
338% rem 982532 bytes arrays zon 
3399 rem 98915 bytes strings zum 
3429 rem 276208 bytes free zum 
3418 rem szsanzan2zmanuznnaznnnnmannam 
a EEE EEE EEE EEE 
28 rem minotaurus ================ 
38 rem (p) 83/86 commodore welt = 
48 rem =======-=-=-=-=-=22=2==========2=2=> 
SB rem (c) 82/86 r. schmid-fabian = 
68 rem c-64 = 
IB rem ==>=>====-=-=-=-==- == == == === == ===> 
88 cf$=chr$( 144) +chr$( 147) 


81 d3$=chr$( 17) +chr$( 17) +chr$( 17) 
u3$=chr$( 145) +chr$( 145) +chr$( 145 


83 print cf$:gosub178:poke53288, 11: 
poke53281,11 

85 fori=1t0888:x=int(rnd( 1)*#2) :prin 
tchr$( 164+x) ;:next:rem labyrinth 

98 gosub69d 

118 ti$="a08000"” 

128 gosub238:geta$:ifa$=""then 129 
138 printa$;:goto 128 

148 remttruunuete rer 
158 rem spritecursor in 11#64 ##x 
168 remis tar 
178 f=8:v-53248:pokev+21,1:pokev+39 
‚f:poke2848,11:rem f=farbe 

180 a=11*64:fori=atoa+62:pokei,®:ne 
xt 
190 
38 
2908 
218 


for i=a+3 to a+15 step 3:pokei, 

:next:return 

remtttrre tree 
rem spritecursor positionieren 

228 rem RRRRRRISRRRRIRRAR EI 

238 a=( peek( 289) +256*peek( 218) - 1924 

)/48:b=peek( 211) 

248 a=a+int(b/48) :b=b+( b>=48) #40 

245 if a=24 then run:rem bei aufgab 

e 

246 ifa=ßthen print cf$"sieg" 

"zeit="ti/68”"sekunden" 

"u3$:end 

258 xn=24+b*8:yn=5Q+a#8:if xn=xa th 

en if yn=ya then return 

255 pokev+31,@8:rem kollisionsflagge 
loeschen 

268 x=(xn+xa) /2:y=(yn+ya) /2:gosub 5 

88:for t=1 to S®@:next t 

278 if peek(v+31)>® then gosubS50:r 

eturn:rem kollision mit hintergrund 

309 x=xn:xa=x:y=yn:ya=y:gosub 588:r 

eturn 

498 rem * sprite nach x,y #itıtıız 

588 pokev,xand255:pokev+16,x/256:po 

kev+ti,y:return 

548 rem # wackeln + geraeusch ##### 

558 for g=1 to 78:pokeS4296,rnd( 1) * 
15:poke53278,rnd( 1) #15:next 

568 poke54296,8:poke53278, 288 

608 x=24:y=242:gosub5BQ:xa=24:ya=24 

2 

698 rem 


:print 
:printd3$"run 


cursor positionieren #### 


788 poke214,23:poke211,8:sys 58648: 
return 


Die nächste 
COMMODORE-WELT 
erscheint am 25.Mai | 
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Super C 116 mit 64k-RAM, 
60671 Bytes frei oder Grafik, 
48381 Bytes frei für nur 
240,— DM. 

Otto Schmälzle, Franz- Schu- 
bert-Str. 10, 7602 Oberkirch 
Tel: 07802/6026 nach 20 h 


Suche Programme für Com- 
modore 8032 Floppy 8050, 
Tel: 04825/488 


Spitzen C 64-Software 
über 1300 Action-Adventures 
und Anwenderprogr. geg. Un- 
kosten abzugeben. Liste mit 
Preisangabe kostenlos anfor- 

‘ dern. A. Wittgen, Postlagernd 
073861 C, 5060 Bergisch 
Gladbach 


Verkaufe: CP-80X + Kabel + 
Handbücher + Hardcopypgr. 
direkt an C 64 + C 128 Grafik 
1280 Punkte/Zeile, 4 Mon. 
alt! Wie neu! VB 750,— DM. 
Näheres unter: 06106/75479, 
Volker Bliß, Frankfurterstr. 
‘106, 6054 Rodgau 3 


C16 undC 116 
„60671 BYTES FREE“, 
RAM für riesige Programme, 
Software. Info bei: Dipl.-Ing. 
H. Stechmann, Pf. 210, 2152 
Horneburg. 


CBM 4040 Doppelfloppy zu 
verkaufen! VB 1400,— DM. 
Tel: 07731/52586 ab 18.00 
Uhr 


für CP/M Modus. Bitte 
schreibt an: Jürgen Tetzel, 
Grellestr. 28, 2840 Diepholz, 
Antwort garantiert! 

Zu verk.: C 64 + 1541 + For- 
mel 64 + Toutsch-Tublet + 
GP 500 VC + S/W-Fernseher 
+1 Game-Mod. 3 2 Spielecas 
+ 100 besp. Disketten + 
Staubschutz + 2 Joysticks 
+314C 64 Fachbücher + 
Comp.Zeitsch. + Disketten- 
box. Alles kompl. f. 2300,— 
DM. Werner Lorber, Postfach 
1951, 8600 Bamberg 


Für VC 20: Verkaufe einige 
24k-RAMS. Voll schaltbar: 
0-3-8816-24k. Auch versch. 
Adressbereiche schaltbar. In- 
fo geg. Rückporto! Friedel 
Heinz, An der Halde 43, 
4330 Mülheim a.d. Ruhr 


ketten zu Spottpreisen 
Rolf Küttel 
Sportplatzweg 4 
6440 Brunnen 
Te: 043/311069 


VC20 VC20 VC20 VC20 
Videospiele für Grundversion 
bis 8k, Angebotsliste gegen 
frankierten Rückumschlag 
Andreas Drescher, Harrier 
Str. 29, 2880 Brake 


VC20 VC20 VC20 VC 20 
Verkaufe 16kROM + Modul- 
box + Schach für nur 120,— 
DM!!! Ralf Hopperdietzel, 
Th.-Storm-Str. 22, 8670 Hof 
Der C 64/VC 20 mini-club 
sucht immer wieder neue Mit- 
glieder (auch PC 128er)! In- 
fo erhältlich gegen Rückpor- 
to! Außerdem suchen wir 
noch Kontakte mit anderen 
Computer-Clubs!!! Meldet 
euch bitte bei uns!!! Dirk 
Smits, Pf. 1314, 415 Kre- 
feld 29 


VC 20-Freaks aufgepasst! 
Tausche Supersoftware (z.B. 
Space Attack, Abductor, Ga- 
laxions, 3 D-Pac Man, Star 
Wars, Scramble, Tacco, u.s.w) 
Schickt eure Listen an: Frank 
Ludwig, Keltenstr. 48, 6630 
Saarlouis-Roden 


Verkaufe original Startexter 
30,— DM, Stardatei 30,— DM, 
Disketten DD, DS, 10 St. 
15,— DM, Centronics-Druk- 
ker-Mabel an User-Port 20,— 
DM. Softwaretausch, Tel: ab 
18 Uhr, 069/782718 


Original Kalkumat, Datamat, 
Textomat plus, Profi Painter 
zu verkaufen. E. Baudach, 
Tel: 0221/8902588 
Versende VC 20 Spielkaset- 
ten gegen 5,— DM in Brief- 
marken o. Geldschein. Ted 
Schiwietz, Eichenring 28, 
8059 Neufinsing, Tel: 08121 
/7445. 

Brauche Hilfe bei Benutzung 
von Eprombrenner im 128er 
Modus. 


Partner(in) gesucht zum Com- 
putern: Vielleicht nur als in- 
tensives Hobby, besser: Sich 
damit selbstständig machen 
(Grundlagen bei mir vorhan- 
den). Erfahrungen: CBM 
8032, C 64, CANON AS- 

100 (CP/M, MS DO5, Oli- 
vettiM 20. 

Dr. Pabst, 06171/24826 


Suche gut erhaltenen, preis- 
werten Drucker und Anwen- 
derprogramm für VC 20. An- 
gebote an: Marcus Hauer, 
Scheffelweg 28, 6972 Tauber- 
bischofsheim 


Verkaufe meine C 16/ C 116/ 
plus 4-Spiele zu Schleuder- 
preisen. Kostenlose Liste von: 
Udo Hölzer, Erzstr. 15, 4630 
Bochum 1 


Suche Gleichgesinnte zwecks 
Erfahrungsaustausch in mei- 
ner Gegend (Michelstadt - 
Beerfelden - Hirschkorn etc.) 
Besitze Commodore 128. Bei 
Interesse ruft bitte an. Tel: 
06068/3456 


Verkaufe Datasette mit 7 In- 
putkassetten von 6/85 bis 
3/86, sowie 3 Spiele (Super- 
pipeline, Bonka, BMX Trai- 
ning) für 170,— DM, NP. 
230,— DM. 

M. Schröder, Planstr. 13, 
6450 Hanau 6, Tel: 06181/ 
73001 


Suche gebrauchte Floppy VC 
1541 für C 64 (unter 300,— 
DM). Suche Infomatrial und 
technische Beschreibungen 
über Erweiterungsmodule für 
C 64. Angabe Preis/Bezugs- 
quelle an: Günter Pauli, 
Adam Karrillonstr. 1-3, 65 
Mainz 

VC 20 +8k 
MC-Monitor (Assembler, Di- 
sas, Find, Dump, Trace usw.) 
+ Fasttape C = 10,— DM, D= 
15,— DM, desgl. m. Diskmo- 
nitor C = 15,— DM, D = 20,— 
DM inkl. Porto. Vorauskasse 
oder NN. T. Grünner, Mark- 
Twain-Str. 5, 3300 Braun- 
schweig, Tel: 0531/314264, 
PS: Auch Tausch gegen Mo- 
dulprogramme. 


C 128/ 640 x 200 Grafik. 
Zeichnen sie auf C 64 Grafik- 
programme. HIG 128 über- 
trägt Bilder und koppelt sie. 
Mit Anl. und Disk 50,— DM. 
M. Uetzels, Annabergstr. la 
4040 Neuss 22, Tel: 467441 


!!l Achtung!!! 
Ich tausche und verkaufe lau- 
fend die neuesten und besten 
VC 20-Games! Meldet euch 
bei: Thomas Kneuper, Pfar- 
rer-Jansen-Str. 7, 4418 Nord- 
walde, Tel: 02573/3478 


VC 20 
Suche und tausche Software 
für VC 20. Interessiert beson- 
ders an neuerer Software. 
Marcus Timpel, F riesenweg 
23, 5090 Leverkusen, Tel: 
02171/44648 
Suche VC 1541 Floppy für 
C 64. Angebote an: Holger 
Stutzke, Am Brückentor 37, 
4018 Langenfeld 


Suche Drucker für VC 20, 
z.B. GP-100 VC, VC 1525, 
VC 1526 oder anderen mit 
mindestens 7 x 7 Punktma- 
trix für maximal 250,— DM. 
Tausche auch Software. Rai- 
mund Paul, Stuttgarter Str. 
44, 1000 Berlin 44, Tel: 030/ 
6869231 


C64 C64 C64 C64 C64 
Wir (3 Schüler) übernehmen 
ihre Programmierarbeit!!! 
Spottbillig!!! 

Info: bei Stefan, Tel: 0711/ 
6873162 


Verk. VC 20 (11 Mon.) + 
Datasette + Handbuch + 
Schachngodul Sargon + Cas- 
setten (Basic, Earth Defense, 
UFO, Black Max, Spielauto- 
mat 17 +4), um 280,— DM. 
Alois Unverdörben, Webers- 
dorf 16, A-5132 Geretsberg 
Tel: 0043/7748/7110 ab 

17 Uhr 


Suche Software jeglicher Art 
für C 16 (Cas). Angebote mit 
Preisen an: Peter Höfert, Kie- 
fernweg 27, 4512 Wallen- 
horst 1 

Die neueste Software für 
ihren C 64 gegen Unkosten 
abzugeben. Über 1300 Pr. 
Liste kostenlos bei: A. Witt- 
gen, Postlagernd 073861, 
5060 Bergisch Gladbach 1 


Verkaufe und tausche Pro- 
gramme für C 16. Christian 
Schmidt, Hauptstr. 62, 8737 
Sulzthal 

Verk. für C 16/ 116/ plus 

4 Daley Tompsons Star 
Events. Ein Sportspiel mit 

7 Disziplinen u. wirklich her- 
vorragender Grafik. Es kostet 
inkl. Kassette oder Disk u. 
Anl. 15,— DM u. ist geg. 
Barzahlung zu beziehen bei 
M. Mehlau, Schönhardtweg 
9, 7165 Fichtenberg 


C64 C64 C64 C64 
Verkaufe C 64 Programm 
(über 400 Spiele) 
Daniel Suter 
Hauptstr. 31 
CH-932 Arbon 
Tel: 071/467924 
Dringend!!! 
Schüler sucht SX 64. Nür 
vollständig in Ordnung. 
Kann bis 250,— DM zahlen. 
Angebote an: Ulrich Müller, 
Hertzstr. 45, 8600 Bamberg 


“C 64. Suche Tauschpartner. 


Kontakte zu 64er-Besitzern, 
auch Clubs, zwecks Erfah- 

rungsaustausch rund um den 
64er. Tel: 07448/1032 


INSUCHE!!! 
Schüler sucht kostenlos de- 
fekten Computer und Zube- 
hör zu Bastelzwecken. Ulrich 
Müller, Hertzstr. 45, 8600 
Bamberg 


Anwendung der DTRL-Taste 


Alles, was man mit PRINT CHR$(x) mit x<32 erreichen 
kann, wird auch ausgeführt, wenn zusammen mit der 
CTRL-Taste ein Zeichen mit Bildschirmcode <32 gedrückt 
wird. (Handbuch S. 133) 


= C64+VC20 Tips & Tricks 


Wichtige Abkürzungen 


(im Kleinschriftmodus eingeben) 

? PRINT aber! pR PRINT# 
pO POKE pE PEEK 
vE VERITY CH CHR$ 
sA SAVE u LIST 

st STOP stE STEP 

rl RIGHTS leF LEFT$ 
ceL CLR c10 CLOSE 
go GOTO g0S GOSUB 
IN INPUT# (INPUT hat keine) 
sP  SPC( ! (Klammer) j 


zum Handbuch (CHR$) 


einige CHR$Codes sind nicht im 
Handbuch aufgeführt: 
OHR$(129) =Orange 
CHR$(149) =Braun 
CHR&(150) =Hellrot 
CHR$%(151) =Grau 1 (dunkel) 
CHR$(152) =Grau 2 (mittel) 
CHR$(153) =Hellgrün 
CHR$3(154) =Hellblau (normal) 
CHR$(155) _=Grau 3 (hell) 


Bl C64+VC20 POKE 788,x 


STOP-Taste 


x=52 
x=49 


ausgeschaltet 
eingeschaltet 


für VC20 


x=194 
x=191 


ausgeschaltet 
eingeschaltet 


a ee ee BE = ee 


HIRESGRAPHIK (Beispielprogramm). 
Wie man eine hochauflösende Grpahik programmieren 
kann, zeigt dieses Beispiel: 


95 
100 


rem **+#+***%#%%%%% Bitmap schützen 
poke51 ,255:poke52,31 :poke55,255: 
poke 56,31 

def fn y (x) = 50*sin(X/30)+100 

rem DE 2 2 2 2 2 2 zZ 2 2 2 2 2 2 2 202 hires ein 
poke53272,peek(53272)or8 
poke53265 ‚peek (53265) or32 

rem 2 2 2 ZZ 2 2 2 2 2 2 2 2 2 2 202 farbe wählen 


105 
110 
115 
120 
125 


Be C64 Programmiertricks 


SPRITES (Beispielprogramm) 
Will man Sprites in Programmen verwenden, 
so muß man folgendes beachten: V = 53248 
Es gibt 8 Sprites (n=) bis 7) 

1 Sprite belegt 63 Bytes 

Adresse für Sprite n steht in 2040+n 

(11 bedeutet: 11*64=704) 

Farbe für Sprite n in V+39+n 

Sprite n einschalten: 
POKEV+21,PEEK(V+21) OR 2?n 

Sprite n auf x,y setzen: 
POKEV+2*n,x:POKEV+2*n+1,y 


Ei C64 Programmiertricks 


FUNKTIONSTASTEN (Beispielprogramm) 

Die Funktionstasten haben die 

ASCIH-Codes 133-140. Wie man sie 

in Basic verwenden kann zeigt dies 

kleine Programm. Es verschiebt 

Sprite O (vorher einschalten!) 

190 v=53248:rem ***+**te00%% start vic 

230 rem *****+**+***% funktionstasten lesen 

235 get a$:if a <133 or a>140then235 

250 on a-132 goto 260,270,280,295,310, 
365,395,410 


ne C64+VC20 : Programmiertricks 


MINITEXTPROGRAMM (CBM 5/85) 
(Groß/Kleinschrift umsch.): 

Im Direktmodus eingeben: 
pO44,10:p010*256,0:NEW (RETURN) 
s=2048 :fOi=1t085:pO ,0:pOs+1,1: 
pOs+2,2:pOs+3,i:pOs+4,0:pOs+5 34: 
s=st6:nE:pOs-4,0 (RETURN) 
pO44,8:5SYS42291 :11-22 
(VC20:SYS50483,statt 2048 den Einschalt- 
wert von PRINT pE(44) *256 


Jetzt können Sie alles schreiben. 
Groß/Klein, mit Cursorsteuerung ... 
Jede Zeile mit (RETURN) abschließen. 


rem ** zf=zeichenfarbe hf=hintergr. 
zf=0 :hf=6:f=16*zf+hf 

for i=1024 to 2023:poke i,f:next 

rem KRERREERERERRRE bitmap löschen 
b=8192:fori=0t07999 :poke b+i,0:next 


rem Frrrrra0aanaaar Kurve zeichnen 


for x=0t0319:y=fn Y (x) :gosub175 
next:goto190 
170 rem RERRRERREREREIENR punkt setzen 
175 be=(xand504)+40*(Yand248)+(yand7) 
180 bi=7—(xand7) 
185 pokeb+by,peek(b+by)or(2 bi) :return 
190 poke 198,0:wait198,1:poke 198,0 
620 sys65409:rem ******* hires aus 


Beispielprogramm (Sprite 0): 


v=53248 :rem ***#+#rHnnn008 sart vic 
rem KERRERRRERRERURITN sprite 0 ein 
pokev+21,1 

ren *****%*%* sprite O auf x,y setzen 
x=160:y=120: poke v,x:poke v+l,y 
poke 2040,11 :rem sprite O in 11*64 
rem ***** spritespeicher löschen 
fori=70410767 :pokei,O:next 

rom ********%#% spritefarbe hellblau 
for i=39 t0 46:poke v+i,14:next i 

rem ****** daten fadenkreuz ****** 
for i=0 to 7:read i:poke 704+i*3,d: 
data 16,16,16,238,16,16,16,0 


255 rem re sorite 0 rauf 
260 poke v+1,peek(v+1)-1:g0to 235 
263 rem *****###H00##% sprite 0 runter 
270 poke v+1,peek(v+1)+1:goto 235 
275 rem HH sprite O rechts 
280 if peek(v)=255 then poke v,0: 
poke v, peek(v)+1:goto 235 
290 rem ***+*+*# #4 sprite O links 
295 if peek(v)=0 then poke v,255: 
pokev+16,peek(v+16and254 :g0t0235 
300 poke v,peek(v)-1:goto 235 


Wie Basicprogramm abspeichern oder als 
Listing ausdrucken: 
OPEN1,4:CMDI:LIST (RETURN) 
PRINT #1:CLOSE1 (RETURN) 
Man kann auch verhindern, daß die 
Zeilennummern ausgedruckt werden: 
vor LIST: POKE 22,35 (normal: 25) 
Doppelten Zeilenabstand erreicht man mit: 
OPEN128,4:CMD128:L1ST 

Die Anführungszeichen kann man durch 
Einlegen in 2. Papier mit 1 cm Falz 

auf den diese gedruckt werden verhind. 


Folgende Kombinationen sind 
sinnvoll: 

CTRL + ‘H’: blockiert SHIFT C= 
CTRL +’ : .entrieg. SHIFT C= 
CTRL+'M’: RETURN 
CTRL+’N’: Kleinbuchstaben 
CTRL + ’Q’: CURSOR runter 
CTRL+'’R’: REVERSON 
CTRL +'S’: HOME 
CTRL+'‘T’: DELETE 

CTRL +’: : CURSOR rechts 
Drückt man z.B. statt RETURN 
CTRL/M, so wird die Ausführung 
(wegen CTRL) verlangsamt. 


Bemrkung: 


Die meisten Befehle können durch 
die ersten zwei Buchstaben abgekürzt 
werden, wobei der 

zweite zusammen mit der SHIFT- 
Taste gedrückt werden muß. 


Anwendung: 


Am Anfang des Programms muß 
POKE 788,52 stehen, dann kann 
das Programm, nachdem es diese 
Stelle erreicht hat, nicht mehr 
mit der STOP-Taste abgebrochen 
werden. 

Für x können auch andere Werte 
ausprobiert werden. 


Unsere Serie über CP/M hat sehr viel Anklang bei den Lesern gefunden. 
Das zeigt uns, daß sich doch noch viele Anwender ernsthaft mit diesem 
doch schon etwas betagten Betriebssystem beschäftigen wollen. Hier nun, 
wie versprochen, der zweite Teil der Serie. 


Sicher haben Sie sich bei Ihrer 
Arbeit mit dem C128 schon oft ge- 
fragt, wie man die Funktionstasten 
mit Strings belegen kann. Unter CP/ 
M existiert dafür der sog. String- 
Editor, mit der Tastenkombination 
CTRL-SHIFT-CURSOR RECHTS- 
TASTE ® 


Und das alles bitte gleichzeitig 


(böse Zungen in der Redaktion be- 
haupten, der Redakteur hätte seit- 
dem eine Geierkralle an der linken 
Hand). Auf dem Bildschirm _er- 
scheint der aktuelle Inhalt der Ta- 
ste auf dem Schirm. 

Zusammen mit der CTRL und 
rechten SHIFT-Taste stehen Ihnen 
jetzt die folgenden Editierkomman- 
dos zur Verfügung: 


o——) : Cursor rechts 

0 (—— : Cursor links 

o— : Zeichen unter Cursor 
löschen 

o+ : Zeichen einfügen 

cCR : Abschluß der Eingabe 


Ein Tip am Rande: Seien Sie 
vorsichtig mit dem Editieren, es ist 
sehr leicht passiert, daß man einzel- 
ne Tasten nicht anschlägt, und so- 
mit Funktionen ausführt, die man 
gar nicht haben will. Sicher haben 
Sie jetzt auch schon bemerkt, daß 
die Strings, die auf den Funktions- 
tasten liegen, auf der eben beschrie- 
benen Weise erzeugt wurden. Tabel- 
le 1 zeigt die komplette Belegung 
der Funktionstasten. 

Leider ist diese Art des Arbeitens 
sehr fehlerträchtig. Um uns die Ar- 
beit zu erleichtern, existiert das 
Programm „KEYFIG“, die Abkür- 
zung für KEY KONFIURATION. 

Mit „KEYFIG“ kann man fast 
alle Tasten des 128’er neu belegen. 
Die Ausnahmen sind: 

— die SHIFT-Tasten 

— die SHIFT-LOCK Taste 
— die CONTROL -Taste 

— die CBM-Taste. 

Um Ihnen die Arbeit zu er- 
leichtern, sind erklärende Menüs 
und alle verfügbaren Optionen bei 
jedem Schritt vorhanden. Sie kön- 
nen mit den Cursor-Tasten und der 
RETURN-Taste beliebig auswählen. 
Sollten Sie das Programm vorzeitig 
verlassen wollen, mit Ctrl-C geht 
dies, ohne daß Daten auf die Dis- 
kette geschrieben werden. Aufge- 
rufen wird das Programm in der 
CP/M üblichen Weise mit 


AIKEYFIG 


Als gewissenhafter Anwender be- 
antworten Sie die Frage nach der . 
angebotenen Hilfe natürlich mit Y 
für „YES“. Für die noch nicht Be- 
sitzer zeigt Bild 1 die möglichen 
Punkte, für die das System seine 
Hilfe anbietet. Mit der ersten Option 
(——)done help(-—) kommen Sie 
übrigens wieder aus dem Help-Mo- 
dus heraus. Sie können mit dem 
folgenden Menü die zu bearbeitende 
Tastaturbelegung auswählen: Die 
englischen Texte bedeuten dabei 
folgendes: 

— Standard Tastaturbelegung 
— Tastaturbelegung von der CP/M 

Boot Disk holen 
— Aktuelle Tastaturbelegung 
— Ihre letzte Arbeitsdatei 
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Mit der Option „Edit a key de- 
finition‘ werden anschließend die 
neuen Strings eingegeben. Auch 
hier nimmt Ihnen ein Menü wieder 
die meiste Arbeit ab. Belassen Sie 
es für den Anfang mit der Umbe- 
nennung der „Z“ und „Y“ Tasten. 
Anschließend wird Ihre Arbeit auf 
Diskette abgespeichert. 

Auch hier gilt wieder der eiserne 
Grundsatz, daß Sie nie mit der 
Originaldiskette arbeiten 
sondern immer mit einer Sicher- 
heitskopie. 


keyfig 


Definition program. 
followingi topics: 5 
--> done help <-- 

--> General Usage <-- 
--> 
--> 
--> 
--> 
--> 
--> 
--> 
--> 
--> 
--> 
--> 
=-> 
Use 
through the menu; 


\ 


Key values <-- 


Editing keys <-- 
Assigning/Editing 
Assigning Colors 
Assigning Special 


Finishing up <-- 


Hilfsfunktionen 
Auch unter CP/M: RENAME 


CP/M Plus bietet Ihnen die Mög- 
lichkeit, Dateien wie in Basic um- 
zubenennen. die Syntax lautet ganz 
einfach: 


RENAME Neuername — Altername 


Natürlich kann auch dieser Be- 
fehl mit REN abgekürzt werden. 
Um gleich mehrere Dateien zu ver- 
ändern, sind auch hier die Wild- 
carts (oder Joker, wie sie wollen) 
„*“ und „?“ erlaubt. Beispiel: 


AREN S*.TXT=A*.TXT 


Wenn Sie ganz sicher gehen wol- 
len, geben Sie nur RENAME ein, 
das System fragt Sie nach neuem 
und altem Namen. 
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sollten, _ 


128 SOFT KEYBOARD PROGRAM 
3 June 1985Welcome to the Commodore C128 Keyboard 
Do you want help? Help 


Assigning HEX values <-- 


ZEIGT SICH: SHOW 


Ein ebenfalls hilfreiches Pro- 
gramm ist SHOW, das Sie auf der 
Utility-Diskette finden. Es zeigt die 
möglichen Optionen einer Diskette 
an. 

Auch hier gibt es interessante 
Optionen, die einfach mit 


A)SHOW (OPTION) 


aufgerufen werden. Sehr nützlich 
sind 


Setting up your work file <-- 
What to do with your work file <-- 


Selecting a key to edit <-- 
Logical/Physical Colors <-- 


Strings <-- 


<-- 


Functions <-- 


For experts only <-- 

the up and down arrow keys to scroll 
type the return key to 
select the topic on which you want help.Are you sure? 


Option Bedeutung 


Space Freien Speicherplatz und 
Zugriffsmodus (RW oder 
RO) anzeigen. " 

Drive. Anzeige der Laufwerkspa- 

rameter. 

Users Anzeige der benutzten 
Userbereiche. 

Dir Freie Directory Plätze 


(nicht verwechseln mit 

freiem Speicherplatz). 
OHNE UMWEGE: TYPE 

Mit dem residenten Kommando 

TYPE ist es möglich, Dateien di- 
rekt auf dem Bildschirm auszuge- 
ben. Sie müssen daher nicht unbe- 
dingt ein Textsystem laden, um Ihre 
Texte anzuschauen. Geben Sie ein 


ATYPE ARTIKEL.TXT (NOPAGE) 
erscheint der Text ohne die 24- 


is 


Zeilen-Beschränkung auf dem Bild- 
schirm. Sie können jederzeit mit 
Ctrl-S anhalten, oder mit Ctrl-C 
stoppen. Übrigens können Sie so : 
auch Source-Files in jeder beliebi- 
gen Sprache ansehen. Mit 


A)ERATOS.PAS 


beispielsweise listen Sie ein Turbo- 
Pascal Source-File auf. Natürlich 
können Sie es mit Ctrl-P auch auf 
den Drucker umleiten. 


available on the 


MULTIFUNKTIONSBEFEHL: 
SET 


CP/M gibt Ihnen mit SET einen 
Befehl in die Hand, mit dem sehr 
einfach und komfortabel Paßwörter 
und DAtei-spezifische Parameter ge- 
setzt werden können. Weiterhin 
dient SET zum Verändern der CP/M 
Fileattribute READ-WRITE (RW) 
und READ-ONYL (RO). 

Eine der Anwendungen von SET, 
die sofort ins Auge sticht, ist die 
„Time-Stamp‘“ . Funktion. Hier 
„drücken“ Sie jedem File auf der 
Diskette einen Zeiteintrag auf. Diese 
Funktion ist für die Anwender sehr 
hilfreich, die sehr viele Texte oder 
Programme schreiben. Sie hat aber 
einen entscheidenden Nachteil: es 
geht etwas Speicherplatz auf der 
Diskette verloren. 


Diese Timestop-Funktion benö- 
tigt einige Vorarbeiten.Formatieren 
Sie zunächst eine Diskette. Anschlie- 
ßend rufen Sie das Programm 
INITDIR.COM von der Utility-Disk 
auf. Dieses Programm richtet die 
Diskette für die Zeiteinträge ein. 

Jetzt können Sie mit dem SET- 
Befehl und einigen Parametern das 
Directory beeinflussen. Dabei kom- 
men drei Parameter in Frage: 

SET A: (CREATE=ON) 
SET A: (ACCESS=ON) 
SET A:(UPDATE=ON) 


Die Optionen bedeuten im einzel- 

nen: 

— CREATE: Der Zeitpunkt der Er- 
stellung der Datei wird eingetra- 


gen. 
— ACCESS: Jeder Zugriff auf die 
Datei wird im Directory festge- 


nachdem die Disketten so geschützt 
worden sind, besteht ohne Paß- 
wort keine Möglichkeit mehr, an 
die Daten heranzukommen. Aus- 
geschaltet wird diese Funktion mit 


ASET A: (PASSWORD<(CR)) 


allerdings erst, wenn Sie die Frage 
nach dem Paßwort ordnungsgemäß 
beantworten. Um die Verwirrung 
vollständig zu machen, können Sie 
sogar angeben, für welche Art des 
Dateizugriffes das Paßwort gelten 
soll. Betrachten wir einmal folgende 
Befehle: 


A)SET A: TEXT(PASSWORD= 
TURBO) 


Die Datei TEXT bekommt also 
das Paßwort TURBO. Sie wollen 
aber in die Datei etwas hineinschrei- 


TABELLE 1: 


Stringbelegung nach dem Booten. Links der Hexcode, rechts der String. 


80:,F1“ 81:,F2° 82:,,DIR(CRY“ 
83: „DIR“ 84:,,F5“ 85:,,F6“ 
86:,,F7“ 87:,,3 JUNE 85“ 88:,,F9“ 

89: ,F10“ 8A:,„F11“ 8B:,SCR (“ 
8C:,SCR )“ 8D: „SCR (“ 8E: „SCR )“ 
8F:,F16“ 

90 bis 9E: „F17“ bis „F31“ 

9F: „HELP“ \ 


halten. Eine DIR-Anweisung. 
wird dabei nicht berücksichtigt. 

— UPDATE: Bei jedem Schreibzu- 
griff wird eine Eintragung vor- 
genommen. 


CREATE und ACCESS-Einträge 
können nicht gleichzeitig einge- 
schaltet sein, ein Befehl 

ASSET A: (CREATE=ON, UP- 
DATE=ON) 

ist aber ohne weiteres erlaubt. 


PASSWÖRTER UND LAUF- 
WERKS-ATTRIBUTE 


Um Ihre Dateien vor unbefugtem 
Zugriff zu schützen, gibt es die 
PASSWORD-Option. Um ein Paß- 
wort zu setzen, benutzen Sie 


A)SET A:(PASSWORD=AETSCH) 


Mit diesem Kommando ist ab 
sofort die gesamte Diskette mit 
einem Paßwort versehen. CP/M 
fragt also vor jedem Zugriff nach; 
merken Sie sich Ihre Paßwörter gut, 


ben, aber sichergehen, daß sie nicht 
gelöscht oder umbenannt wird. Da- 
zu geben Sie ein: 


A)SET TEST(PROJECT=DELETE) 


Mit DELETE ist die Datei gegen 
versehentliches Löschen oder Um- 
benennen geschützt. Neben DELE- 
TE sind noch die Optionen READ, 
WRITE und NONE möglich. Mit 
READ sind alle denkbaren Datei- 
zugriffe unmöglich gemacht wor- 
den. WRITE ermöglicht zwar das 
Lesen, nicht jedoch den Schreib- 
zugriff (incl. Löschen und Umbe- 
nennen), DELETE haben wir schon 
betrachtet und NONE schaltet den 
Paßwortschutz ganz einfach aus. 
Beachten Sie bitte, daß mit diesem 
Befehl keine COM Dateien ge- 
schützt werden können. 

Wenn Ihnen vor lauter Optionen 
und Parameter schon der Kopf 
raucht, so kann ich Sie beruhigen: 
die Laufwerksattribute sind nicht 
sehr umfangreich. Genauer gesagt 
gibt es derer nur zwei, nämlich die 


schon erwähnten READ-ONYL und 
READ-WRITE. 


A)SET A:(RO) 
A)SET A:(RW) 


RO schützt das gesamte Laufwerk 
vor einem Schreibzugriff, Sie setzen 
praktisch einen „Software-Schreib- 
schutzaufkleber“. _Logischerweise 
funktionieren dann auch PIP oder 
ERASE nicht. Der Schutz wird mit 
dem zweiten Befehl wieder aufge- 
hoben. 

Damit schließen wir den zweiten 
Teil unserer CP/M Serie. Wenn Sie 
jetzt Lust bekommen haben, dann 
setzen Sie sich an den Computer 
und probieren die angesprochenen 
Dinge aus. Sie können sich dann 
schon als Fast-Profi bezeichnen. 

Was es mit dem Programm ED. 
COM auf sich hat, warum es sich 
lohnt, das Programm SUBMIT. 
COM auszuprobieren und wie man 
sich durch eine 1150 Gramm 
schwere Dokumentation „‚durch- 
frißt‘“, das alles erfahren Sie im 
nächsten Teil der Serie. 


Sind Sie ein 
Computerfreak? 


0 — 14 Punkte: 
Entweder haben Sie Ihren Com- 
puter noch nicht allzu lange oder 
aber Sie sind .einer der bewun- 
dernswerten Menschen, die von 
ihrer EDV-Anlage noch relativ 
unabhängig sind. 
15 — 25 Punkte: 
Aha! 
Erste Anzeichen dafür, daß Sie 
ein echter Computerfreak wer- 
den; sind schon vorhanden. 
Nicht mehr lange und Sie er- 
reichen bei diesem Test die VOL- 
LE Punktzahl. 
26 — 30 Punkte: 
Sie sind ein echter Freak. 
Ohne Ihren Computer können 
Sie nicht mehr leben. Wahr- 
scheinlich hat Sie Ihre Frau/ 
Freundin schon verlassen oder 
sie hat es zumindest schon mehr- 
fach angedroht. 
Ein Wunder eigentlich, daß Sie 
Ihre Zeit für so dumme Dinge 
wie diesen Test verschwenden, 
zumal wir hier in Deutsch und 
nicht in ASCI-Zahlencode 
schreiben. 
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Verkaufe: 1 Graupner Elek- 
tromotorrad NP 200,— DM ° 
für nur 140,— DM oder tau- 
sche gegen Joystick Comp. 
Pro II # Lightpen für C 64 
G. Reitzer, Blumenstr. 14, 
7258 Heimsheim 
Achtung! Dringend preisgün- 
stige Spiele nur auf Disk zu 
kaufen gesucht! Spiele für C 
64 und C 128. = 
An: Richard Gutermuth 
Eichenweg 1 
5340 Bad Honnef/Rhein 1 
Tel: 02224/3445 
. Suche, tausche, verkaufe alle 

mögliche VC-20 Software. 
Große Auswahl an Progr. vor- 
handen. Schickt Listen an: 
Christoph Krohn, Goethestr. 
35 a, 5980 Werdohl 
Suche alle Programme für 
8032 SK. Tel: 09526/1680 
Verkaufe Commodore 16 + 
Datasette + Anschlußkabel + 
Adapter + Handbuch + Mo- 
dul + 2 Spiele!!! (Technisch 
+ optisch o.k.) 
Markus Stuettgen 
Zaunswinkelstr. 42 
4019 Monheim Preis: 150,— 
Tel: 02173/56325 
VC20 VC20 VC20 VC20 
Verkaufe VC-20 + Data-Sette 
+32k + Joystick + Literatur 
(Listings, Bücher) + Software 
+ Schachmodul: VB 400,— 
DM, Thomas Reinhold, Hang- 
weg 8, 7102 Gellmersbach, 
Tel: 07134/8229 

C-128 C-128 C-128 C-128 
Einsteiger sucht C-128-User 
zwecks Information, Er- 
fahrung- und Software-Aus- 
tausch. Heiko Hamann, Tim- 
mersgarten 24, Datteln 3 

SUCHE SUCHE SUCHE 
Für C-128 das RP-System 
Preisvorstellung: 20,— bis 
25,— DM. Disk mit Hand- 
buch. Bitte schriftliche An- 
gebote an: Axel Fetzner, Kur- 
promenade 3, 7506 Bad Her- 
renalb 


Verkaufe Warneke’s Mailbox 
Telefonbuch für 6,— DM inkl. 
Porto und Verpackung. 
Ulrich Müller, Hertzstr. 45, 
8600 Bamberg 


Ärger!!! mit Handbüchern, 
Programmbeschreibungen u. 
Anleitungen in Englisch? Ich 
übersetze ins Deutsche, 
schnell und korrekt. 

Udo Hofmann, Im Buschfeld 
21, 5482 Grafschaft 3, nur 
werktags am Vormittag tel. 
02641/4160 


VC-20 Tausch und Verkauf 
von Programmen. Verkaufe 
Pokermodul Fr 20,—; Origi- 
nalkassetten Commodore, 
Autorallye, Earth Defense, 
zu je Fr 10,—. Suche Drucker 
zu VC 20 und Flugsimulator. 
Adi Kurzen, Arnika, CH-3818 
Grindelwald 

VC-20-Fan sucht schrottrei- 
fes Zubehör. Tausche Softwa- 
re (Anwendeprogr./Spiele) 
GV-16k — nur Cas — Liste 
an: Frank Thiel, Hauptstr. 54 
5231 Mudenbach, Tel: 02688 
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Suche Floppy 1541 oder Ep- 
son-Drucker mit Görliz Inter- 
face sowie Eprom-Program- 
miergerät im Tausch gegen 
VHFIUHF Computerscanner 
32000 Frequenzen u. digi- 
tale Anzeige. AM + FM. An- 
gebote an: K. Kohler, Ulmen- 
weg 6, 7074 Mögglingen 
VC-20 
Suche preiswerkte 8 - 16k Er- 
weiterung + Mathe. Pro- 
gramm für Kurvendiskussion. 
Willi Schulte-Werflinghoff, - 
Herderstr. 3, 4220 Dinslaken 
Tel: 02134/54271 


Achtung! Original D-Base II, 
Multiplan, Wordstar für Com- 
modore 128 günstig zu ver- 
kaufen. Suche Lösungen für 
das Installateurhandwerk für 
C 64 und Atari 520 ST., 
schreibt an C. Radlgruber, 
postlagernd, 8399 Neuhaus 
am Inn 


Achtung! Suche C-64, Flop- 
py, Drucker. Kaufe C-64, Ep- 
son, Floppy. Suche Drucker, 
C-64, Floppy. Kaufe Floppy, 
Drucker, C-64, schreibt ah 

C. Radlgruber, postlagernd, 
D-8399 Neuhaus am Inn 

Viel Service für wenig Geld 
bietet der TI-CLUB BAUNA- 
TAL seinen Mitgliedern. 

Info gegen 50Pfg. oder Club- 
heft gegen 3,— DM anfordern 
TCB, Matthias Orf, Birkenal- 
lee 34, 3507 Baunatal l, Tel: 
0561/497990 

Drucke Ihre Programme für 
nur 5,— DM je Programm. In- 
fo 50Pfg. anfordern oder Da- 
tenträger + Geld an Matthias 
Orf, Birkenallee 34, 3507 
Baunatal 1 

Viel Maschinensprache für 
32k + Cassette gibts jetzt. Al- 
les sehr preiswert. Info 1,— 
DM -— anfordern, es lohnt!!! 
Matthias Orf, Birkenallee 34, 
3507 Baunatal l 

Der TI-CLUB BAUNATAL 
hat Einkaufsvergünstigungen 


“ für seine Mitglieder. Haben 
* Sie auch welche? Wenn nein, 


dann Info 50Pfg. oder Club- 
heft 3,— DM anfordern bei: 
TCB, Matthias Orf, Birken- 
allee 34, 3507 Baunatal l, 
Tel: 0561/497990 


Verkaufe für C-64 Ascom- . 
Akustikkoppler mit Soft- 
ware für 180,— DM. 

Suche Software für C-128. 
(Keine Raubkopien) 
Wolfgang Hewig, Postdamm 
18, 4460 Nordhorn, Tel: 
05921-5019 


Suche Drucker MPS 801 
Wer tauscht MPS 801 gegen 
C 16 + Datasette + Joystick 
+ Programme??? 

Drucker sollte in Ordnung 
sein! Christian Schmalz- 
gruber, Hoefter Str. 20, 
A-5280 Braunau/Austria 
Tel: 07722/48852 
Ich suche Programme für den 
COMMODORE VC 20, Spiele 
und 16 KBY ERW. Bin 12 J. 
alt. 
Michael Bannöhr, Wipper- 
teich 40, 3186 Wolfsburg 11, 
Tel: 05363/2395 

VC 20 Suche dringend 
Modulbox 3 - 6 Steckplätze, 
8k Speichererweiterung, 16k 
Speichererweiterung, 40/80 
Zeichen Karte, Software zur 
DFÜ u. Kass. Angebote an:_ 
Siegfried Laas, Linienstr. 28, 
4000 Düsseldorf 1, Tel: 0211 
[722165 


C 16/ 116: Suche gebr. 16k- 
Erweiterung - außerdem su- 
che ich jede Menge Tips + 
Tricks für den C 16! Suche 
noch Kopierprogramm und 
andere Software für den C 16. 
Tausche und verkaufe auch 
selbst Programme! Meldet 
euch bei: Andreas Kleinemei- 
er, Hoelderlinstr. 19, 4837 
Verll . 


Achtung! Suche Tauschpart- 
ner für C 64 +C 128 + CPM 
Anwendungsprogramm: Li- 
sten zusenden — 100%ige 
Antwort. Auch DFÜ Freaks 
meldet euch. Tel: 02404 / 
61765. Verkaufe Newroom 
Bilderkatalog, Ausdruck 
10,— DM. 

Verkaufe Programme für 

C 16 Dateien, Spiele u.a.’ 
Jede Datei 400 Sätze — auch 
Tausch! Suche für C 16 das 
Spiel Hero. Melden bei: 
Christian Schmidt, Haupt- 
str. 62, 8737 Sulzthal. 
Suche Datasettenadapter 

für C 64. 


Verkaufe VC-20 119,— DM; 
Datasette 45,— DM; 2 Modul- 
Spiele: STAR BATTLE + 
Räuber und Gendarm a 18,— 
DM. Bei kompl. Abnahme 
gratis 6 Originalkassetten da- 
zu: Tel: 09732/4297. 


Für C 16 — Plus 4 

Suche 20 Stecker.für Joyans. 
Interface User/V 24, User RS 
232, V 24 / RS 232. Akkust- 
koppler mit Interface + Trei- 
ber, Plus 4 sowie Hardware- 
Unterlagen gegen — Bares — 
Uwe Peters, Tannenweg 9, 
2351 Trappenkamp, Tel: 
04323/3991 


Commodore-Club-Dixy! 
Infos gegen Rückporto bei 


“ Dieter Plaum 


Galileistr. 9 
6800 Mannheim 1 
DIXY-CLUB-COMMODORE 
VC20 VC20 VC20 VC20 
16k ROM, Orig. Kassetten, 
Software und orig. Module 
— alles billig abzugeben. 
Markus Hauer, Hindenburg- 
str. 5, 5090 Leverkusen 1, 
‚Tel: 0214/47780 
Suche 1541! Zahle bis 200,— 
DM. Tel: 09552/1432 (nur 
nach 14.00 Uhr) 

SOS SOS SOS SOS SOS 
Suche dringend Software 
für Commodore VC 20 + 
16k. Nur Briefe mit Rück- 
porto werden beantwortet. 
Angebote an: Boris Beutler, 
Düppelstr. 31, 4350 Reck- 
linghausen 


to swap all over the World. 

C 64 and PC 128, ober 4000! 
Programs, also CPLM and 128 
Mode. Please send us your 
List! (Du kannst auch 
deutsch schreiben) Yu.C.S., 
Na Produ 38, 6239 1 Prevalse 
/Yu, Yugoslavia 


Suche wanted suche 
Für VC 20: Datasette (40,— ' 
DM); Floppy (250,— DM); 
32k-Erw. (100,— DM); gra- 
fikfähigen Drucker (300,— 
DM). 


 . Albert Wirtz, Johannis Str. 2 


5180 Eschweiler, Tel: 02403 
/65122, Mo., Di., Fr. 19 bis 
21 Uhr. 


Suche zuverl. Tauschpartner 
(in) für 64/128er-Prg. (Disk.) 
Suche 64/128er-tauglichen 
Drucker mit NLQ-Schrift und 


- Interf. bis 800,— DM.M. Du- 


mont, Blankenburgstr. 16, 
4242 Rees 3, Tel: 0281/ 200 
607 0. 02850/7887 


REPORT 


Offensichtlich scheint Commodore wieder in die alte Strategie zu ver- 
fallen, gute Geräte anzupreisen und dem Kunden vom Aufbau her völ- 
lig andere zu verkaufen. Wie sonst kommt es, daß in „Vorführgeräten ”, 
welche der Fachpresse zur Verfügung gestellt werden, Details vorhanden 
sind, von denen dann der Käufer selbst nichts zu sehen bekommt? 
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REPORT 


Böse Zungen könnten behaupten, 
Commodores Fertigungsbetriebe 
würden weiterhin alte Teile für neue 
Geräte verwenden. So jedenfalls 
mutete es uns an, als wir einmal ein 
1571 Laufwerk demontierten, wel- 
ches von uns bei einem Münchener 
Großmarkt gekauft wurde. Das Er- 
staunen unsererseits war groß, als 
uns in dem nagelneuen Laufwerk 
ein Netzteil entgegenblickte, wel- 
ches einem altertümlichen Dampf- 
radio alle Ehre gemacht hätte. Als 
daraufhin (die Neugier wurde im- 
mer größer) eine 1571 zerlegt wur- 
de, war dann die Überraschung per- 
fekt. Nichts war zu sehen von Vor- 
kriegsnetzteilen, dafür waren über 
der Stromeinheit und dem Lauf- 
werk akurate Metallabschirmungen 
angebracht, von denen in dem an- 
deren Gerät ebenfalls nicht auszu- 
machen war. Diese Abdeckungen 
dienen dem Schutz vor den für Dis- 
ketten tödlichen Magnetstrahlen, 


Eine Telefon- 
Odyssee sonder gleichen 
— Niemand wußte nichts 


welche in Laufwerk und Transfor- 
mator erzeugt werden. So ist es 
bei einem abgeschirmten Gerät 
möglich, im Eifer des Gefechtes 
mit dem Computer eine beschrie- 
bene Diskette auf das Gehäuse zu 
legen, ohne bei einem späteren 
Leseversuch Ohnmachtsanfälle zu 
erleiden, da das in mühevoller 
Kleinarbeit erstellte Programm 
nicht mehr vorhanden ist. Natürlich 
werden jetzt cinige fragen, wer 
denn schon Disketten auf dem 
Laufwerk lagert, doch das ist nicht 
die eigentliche Frage. Viel wichtiger 
erscheint uns doch die Tatsache, 
daß hier ganz offensichtlich Fcehl- 
information von Commodore be- 
trieben wird. „Otto-Normalverbrau- 
cher“ liest in der Zeitschrift XY 
von dem neuen 1571 Laufwerk, 
freut sich über Abschirmung des- 
selben und weitere kleine Detail- 
verbesserungen. Also läuft er in 
das nächste Fachgeschäft und kauft 
sich dieses Gerät. Zu Hause ange- 
kommen probiert er dann natür- 
lich gleich kräftig aus, doch siehe 
da: Von einer Abschirmung ist 
nichts zu bemerken, die Versuchs- 
diskette ist zerstört. Wer würde sich 
nun an dieser Stelle nicht vera... 


vorkommen, wenn doch immer- 
hin einige hundert Mark im Ver- 
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gleich zur 1541 mehr bezahlt wer- 
den, nach Aufschrauben und Nach- 
schauen die versprochenen Vorteile 
jedoch zusammenschmelzen wie 
Schnee in der Sonne? 

Wir kauften uns also NOCH eine 
1571, schraubten auf und mußten 
feststellen, daß auch an diesem 
Laufwerk der Fortschritt vorbeige- 
laufen ist. Wenigstens wissen wir 
jetzt um die eigentliche Bedeutung 
des Begriffes „Laufwerk“. Genau 
wie bei unserem ersten Kauf fehlte 
auch hier jede Abschirmung, von 
einem neuen Netzteil war nirgends 
etwas zu entdecken. Wer nun 
meint, wir hätten uns bei unse- 
ren Probekäufen Billigware aus 
Fernost andrehen lassen, dem sei 
verraten, daß das Typenschild 
„Made in W.-Germany“ verlauten 
läßt. Und zwar bei BEIDEN Lauf- 
werken. 

Und war meint Commodore zu 
diesen Fakten? Nun, wir riefen zu- 
erst bei der Hauptzentrale von 
Commodore Deutschland in Frank- 
furt an. Dort erhielten wir die Aus- 
kunft, daß doch eigentlich das Fer- 
tigungswerk in Braunschweig hier- 
für zuständig sei. . Im Werk Braun- 
schweig wurden wir dann an das 
Auslieferungslager verwiesen, (was 
ein Auslieferungslager mit Produk- 
tionsunterschieden zu tun hat, 
wurde uns dabei nicht mitgeteilt) 
und vom Auslieferungslager schick- 
te man uns wieder zurück an Com- 
modore Frankfurt. Dort wandten 
wir uns nun direkt an den Leiter 
der Pressestelle, Herrn Hahn, doch 
auch von diesem war nur zu ver- 
nehmen, daß für derlei Dinge „Werk 
Braunschweig“ zuständig sei. Also 
läuteten wir die nächste telefoni- 
sche Deutschlandrundreise ein, 
doch das Ergebnis blieb gleich: 
Niemand konnte oder wollte Aus- 
kunft geben, keiner wußte Bescheid. 
An dieser Stelle brachen wir dann 
auch unsere Bundespostbereiche- 
rungsaktion vorläufig ab (denn Herr 
Schwarz-Schilling profitierte als ein- 
ziger von unseren Telefonaten). 

Erst einige Tage später war es 
dann möglich, (Nachdem ein Kol- 
lege nachdrücklich auf diesen Arti- 
kel hinwies), daß uns von Herrn 
Hahn ein kompetenter Mann ge- 
nannt wurde, welcher unsere Fra- 
gen beantworten sollte. Von Herrn 
Arndt in Braunschweig erhielten 
wir dann eine Auskunft, welche un- 
sere Verblüffung nur steigern konn- 


te: Das Alt-Netzteil sowie die feh- 
lende Abschirmung seien eine WEI- 
TERENTWICKLUNG des 1571er 
Laufwerkes. Die Abschirmung im 
„alten‘‘ Gerät habe nur deshalb 
bestanden, da das dort verwendete 
Schaltnetzteil höhere Abstrahlungs- 
werte erreicht. Die Abschirmung 
über dem Laufwerk diene lediglich 
dem Schutz desselben vor Strah- 
lungen von außen, z.B. durch einen 
Monitor. Was wir aber nun nicht 
verstanden: Warum konnten diese 
Abschirmungen denn nicht beste- 
hen bleiben, denn schaden können 
sie mit Sicherheit nicht. Und wenn 
sie schon, wie Herr Arndt betonte, 
keinerlei Existenzberechtigung ha- 
ben, da Ab- und Einstrahlung nur 
in kleinsten Mengen auftreten, war- 
um wurden sie dann anfangs einge- 
baut? Wir jedenfalls mußten fest- 
stellen, daß die Abschirmungen 
durchaus ihre Aufgabe erfüllen. Nur 
ein Beispiel: Bringen Sie einmal ein 
„neues“, unabgeschirmtes Lauf- 
werk in die Nähe Ihres Monitors. 
Sie werden feststellen, wie nützlich 
eine Abschirmung sein kann, wir 
jedenfalls konnten bei diesem Ver- 
such auf unserem Monitor nichts 
außer einer erstklassigen Bildstörung 
mehr erkennen. Mit dem abge- 
schirmten Laufwerk dagegen 
herrschte Eitel Sonnenschein, es 
trat keinerlei Beeinflussung mehr 
auf. Damit wird auch gleich Herrn 
Arndts Aussage widerlegt, die 
„neuen‘ alten Netzteile würden 
eine so geringe Abstrahlung aufwei- 
sen, daß jede Abschirmung über- 
flüssig sei, bei uns trat nämlich das 
Gegenteil ein. 


Ran an den 
Schraubenzieher 
und nachsehen! 


Zum Schluß nun eine Bitte an 
diejenigen unserer Leser, die eine 
1571-Station Ihr Eigen nennen: 
Schraubt Eure Laufwerke doch ein- 
mal auf und seht nach, was bei 
Euch eingebaut ist. Sollten sich 
auch in Eurem Laufwerk diverse 
Änderungen befinden (vielleicht 
gibt es ja noch ganz andere Muta- 
tionen innerhalb der 1671), 
schreibt uns darüber sowie über 
ure Erfahrungen mit diesem Gerät. 


Torsten Seibt 


ss 


TIPS & TRICKS 


PROGRANM 
MACHT 
FURORE 


Viele Ehre fand unser Textprogramm für den 128er 
in Heft 3/86. Hier noch einige Antworten auf immer 


wieder gestellte Fragen 


Ganz offensichtlich ist 
unser Textverarbeitungs- 
programm bei den Lesern 
ganz gut angekommen, 
das beweisen zahlreiche 
Anrufe bei mir. Dabei 
ging es zu 99,9 % um den 
Drucker. Deshalb möchte 
ich nachträglich noch et- 
was über die verwendeten 
Steuersequenzen bemer- 
ken. 

Bevor ich auf diese 
Sequenzen eingehe, erst 
noch einiges „‚Allgemei- 
nes“ zum Drucker. Die 
Grundanforderung an 
den Drucker ist „Epson 
kompatibilität“, das 
heißt, daß der Drucker 
den gleichen Befehlssatz 
haben muß wie ein Druk- 
ker der Marke „EPSON“. 
Dies trifft für viele Druk- 
ker zu, aber eben nicht 
für alle. Eine weitere For- 
derung ist der Schön- 
schreibmodus, NLO 
(Near Letter Quality) ge- 
nannt. Ebenso müssen al- 
le Schriftarten, die im 
Programm angegeben 
sind, vorhanden sein. Da- 
zu gehören auch der Un- 
terstreichungsmodus so- 
wie Super- oder Subscript. 
Auch über einen ‚„Rück- 
wärtsgang‘ muß der 
Drucker verfügen, wenn 
der Briefkopf in dieser 
Form gedruckt werden 
soll. Das in Heft 3/86 ab- 
gedruckte Listing ist auf 
den Drucker „RITEMAN 
F+“ der Fa. Itoh und auf 


das Interface 92008/G 
der Fa. Wieseman abge- 
stimmt. Dabei kommt es 
nicht darauf an, den glei- 
chen Drucker zu verwen- 
den, sondern viel mehr 
auf das Interface. Denn 
das Interface muß die 
Steuersequenzen, richtig 
übersetzt, an den Drucker 
senden. Hier ist zwar 
auch der Befehlsvorrat 
auch gleich, aber es kann 
durchaus sein, daß bei an- 
deren Interfaces etwas 
anderes eingegeben wer- 
den muß. So sollten Sie 
an Hand Ihrer Hand- 
bücher die entsprechen- 
den Befehle abändern. 
Bei dem von mir verwen- 
deten Interface war es 
notwendig, 3 verschiede- 
ne „Kanäle“ zum Druk- 
ker zu öffnen. Deshalb 
auch die 3 „OPEN“-An- 
weisungen in Zeile 80, sie 
gelten alle nur für den 
Drucker. Dabei sind ei- 
gentlich nur die Sekundär- 
adressen (die jeweils drit- 
te Zahl) wichtig. Über die 
Sek.adr. 1 können alle 
Zeichen und Befehle im 
Drucker angesprochen 
werden, es können keine 
Blockgraphiksymbole ge- 
druckt werden. 

Sek.adr. 2 gestattet 
den tatsächlichen Druck 
von Groß- und Kleinbuch- 
staben. 

Sek.adr. 7 gestattet 
den Druck von CBM- 
Blockgraphik. Das heißt 


also, wenn Sie dem Druk- 
ker Befehle übermitteln 
wollen, so müssen Sie 
dies (entsprechend dem 
Listing) über die Kanal- 
nummer 3, Geräteadresse 
4 und über die Sekundär- 
adr. 1 tun. Als Befehle 
sind hier anzusehen: 
Schriftartwechsel, Unter- 
streichen, Zeilenvorschub 
oder Zeilenrücklauf etc. 
Übergeben werden die 
Befehle mit „PRINT#3, 
GCHBS W271: sauce * 
wobei „CHR$ (27)“ mit 
„EC$ “ in Zeile 90 defi- 


niert wurde. Sie sehen 
dies in den Zeilen 400 bis 
590 mit dem Musterkopf 
entnehmen. Zeile 480 
schaltet den Unterstrei- 
chungsmodus ein und 
Zeile 500 wieder aus. Zei- 
le 550 schaltet ‚„Sub- 
scribt‘‘ ein und Zeile 570 
wieder aus. Die Variable 
„INd “ initialisiert den 
Drucker, da gab es auch 
einige Probleme, wie ich 
gehört habe. Der Rest 
dürfte, so glaube ich, 
klar sein. 


P/B 


TEXTVERARBEITUNG :-1- 


10 rem textverarbeitung ====128 
20 rem (p) 02.86 cbm + cw team ts = 
30 rem ============== === = 222202202022 = 
40 rem (c) 11/85 = 
50 rem by peter basch = 
60 rem = 
70 rem version 7.0 80z/ascii 

71 rem 128 pc+1541/1570/1571 = 
72 rem =====-=-=-=-=-=-=-=-=22 20202220222 200002=- 


80 fast:printchr$ (14) :be$=chr$ (7) :p 


$=chr$ (46) :open1,4,2:open3,4,1:open 
4,4,7 

90 dimz$ (660) ,e$(61) :c1$=chr$ (147): 
cd$=chr$ (17) :rn$=chr$ (18) :rf$=chr$( 
146) :rq$=chr$ (145) :rb$=chr$ (157) :sp 
$=chr$ (32) :ec$=chr$ (27) :in$=chr$ (27 
)+chr$ (64) 

100 printcl$rn$'" Peter's Text fuer 
128er <-> zum Menvue....... 


":printec$"t" 

110 printcl$"..mit Briefkopf = <B 
> mit Absenderzeile = <A >»..oder 
Neutral = < N >":print#1,in$:; 

120 gety$:ify$=""then120 

130 ify$="n'then650 

140 ify$="b"then280 


150 ify$="a'then260 

160 goto 120 

170 y$='b" 

180 printc1l$"Schrift ?...< P > Pica 
er < I > Italic.....< K > Komprim 
Verb. .a: < 5) Schoen " 


190 getb$:ifb$=""then190 
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WOLLEN SIE 


TEST 


WISSEN, WO IHR 
GELD GEBLIEBEN 


IST? 


Professionelle Software für den 128 PC ist noch sehr rar. Wir entdecken 
einige gute Anwenderprogramme in den USA. Hier der erste Test. 


Ihr persönlicher Finanzplaner! So 
könnte man dieses Programm in 
freier Übersetzung nennen. Denn 
mit diesem Programm können die 
Anwender, sofern sie im Besitz ei- 
nes Commodore 128 plus eines 
1571-Laufwerks sind, endlich Ord- 
nung in ihren privaten Finanzhaus- 
halt bringen. Dieses 80-Zeichen- 
Programm beinhaltet vier aufeinan- 
der abgestimmte Vermögensver- 
waltungsprogramme, die ihnen bei 
obengenanntem Ziel helfen sollen. 
Doch sie tun noch mehr. Sie helfen 
auch bei langfristigen Investitionen, 
Versicherungen, Renten und son- 
stigen zukünftigen Geldausgaben. 
Dabei geht dieses Programm ähn- 
lich einem menschlichen Finanz- 
berater vor. Es benötigt zu Anfang 
natürlich ausgedehnte Informatio- 
nen über die finanzielle Lage des 
„Klienten“. Deshalb müssen sie 
am Anfang den Rechner mit allen 
Finanzangaben füttern. Dies bein- 
haltet Dinge wie Prüfen und Sichern 
ihrer Konten, Rentenpläne, der 
Aktien und Obligationen, Ver- 
sicherungsprämien und des Haus- 
haltes. Diese Daten müssen aber 
nur einmal eingegeben werden, 
und sind dann durch alle vier 


Unterprogramme des Finanz- 
planers zugänglich. Hier gleich 
mehr zu diesen vier Unterpro- 


grammen, die sich wie folgt auf- 
listen: 

— „Transaction Manager“ 

— „Budget Manager“ 

— „Asset/Liability Manager“ 

— „Financial Future“ 

Dazu ist noch zu sagen, daß auch 
dieses Programm, wie es bei den 
meisten heute erwerblichen Pro- 
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grammen üblich ist, durch Über- 
und Unterprogramme, die in Menü- 
form anwählbar sind, strukturiert 
ist. Der Transaktionsmanager ver- 
folgt ihre Ausgaben, die sie bar, 
mit Scheck oder per Kreditkarte 
tätigen. Er verarbeitet dabei die 
Informationen von bis zu 5 Bank- 
konten und 10 verschiedenen Kre- 
ditkarten. Weiterhin bietet dieses 
Unterprogramm folgende Möglich- 
keiten: 

— Eingabe der allgemeinen Infor- 
mationen 

— Hinzufügen der letzten finanziel- 
len Transaktionen. Dazu gehören 
auch ganz triviale Dinge, wie Ein- 
kaufen von Lebensmitteln und 
Ähnlichem. Der Rechner verlangt 
dazu allerdings die Eingabe von Co- 
dezahlen, um beim Erstellen einer 
Bilanz die einzelnen Ausgaben ein- 
ander zuordnen zu können. Diese 
Zahlen sind im Handbuch äußerst 
übersichtlich aufgeführt, so, wie man 
sagen kann, daß dieses Handbuch 
geradezu ein Vorbild an Übersicht- 
lichkeit ist. 

— Analyse der Ausgaben und Ein- 
nahmen 

— Eingabe automatischer Transak- 
tionen, wie z.B. monatliche Fixaus- 
gaben 

— Ansehen des Directory einer Dis- 
kette 

— Suche und Erneuerung von In- 
formationen 

— Ansteuerung eines Druckers und 
Erstellen von Berichten 

— Schreiben von Schecks. 

Dazu verwendet dieses Unterpro- 
gramm eine eigene Datendiskette, 
die jedoch auch ihre Informationen 
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geben kann. Diese Diskette kann 
durch einen eigenen Punkt im 
Hauptmenü, sowie auch die beiden 
anderen Datendisketten, _initiali- 
siert werden. Das Haushaltsplanma- 
nager-Programm erstellt einen jähr- 
lichen Haushaltsplan, wobei es auch 
das Geld berücksichtigt, das zum 
Erreichen von Langzeitzielen benö- 
tigt wird, wie zum Beispiel die 
Ausbildung von Kindern, ein neues 
Auto oder eine größere Urlaubsrei- 
se. Auch kann man mit diesem 
Unterprogramm sich Balkendia- 
gramme zur Veranschaulichung der 
finanziellen Situation erstellen. 
Auch dazu muß man eine eigene 
Datendiskette erstellen. Unterpro- 
gramm drei, der Aktiva/Passiva-Ma- 
nager, schlüsselt Ihnen Ihre Aktiva 
und Passiva-Posten Ihrer Haushalts- 
bilanz auf und sagt Ihnen, wieviel 
Geld Sie noch besitzen, oder ob Sie 
schon alles ausgegeben haben. Auch 
hier kann man sich wieder Aus- 
drucke der aktuellen Bilanzen er- 
stellen lassen. Dazu ist wieder eine 
eigene Datendiskette nötig. Das 
vierte Unterprogramm behandelt 
die finanzielle Zukunft. Dies ist si- 
cherlich das interessanteste Pro- 
gramm im Finanzplaner, da man 
sich hier selbst Ziele und deren 
Prioritäten setzen kann. Hier kann 
man zukünftige größere Anschaf- 
fungen eingeben, wann diese ge- 
tätigt werden sollen und welchen 
Betrag sie kosten werden. Das kön- 
nen aber auch Punkte wie eine vor- 
gezogene Rente oder Ähnliches 
sein. Das Programm errechnet dann, 
wieviel Geld sie dafür jährlich auf 
die Seite legen müssen und be- 
rücksichtigt dabei ihre aktuelle 
finanzielle Situation genauso wie 
die Wertminderung des Geldes. Es 
sagt ihnen aber auch, wenn das ge- 
steckte Ziel in dem angegebenen 
Zeitraum nicht zu realisieren ist. 
Das Programm zeichnet sich durch 
eine ausgesprochen benutzer- 
freundliche Bedienung aus. Es ver- 
wendet sehr stark die sogenannte 
Fenstertechnik als Anzeige auf 
dem Bildschirm. Einzelne Funk- 
tionen werden mit der Cursor- 
steuerung angefahren und mittels 
der Returntaste aufgerufen. Zum 
Aussteigen und der Rückkehr ins 
Hauptmenü genügt ein Drücken 
der ESC-Taste. Auch ist es mög- 
lich, eine Hardkopie des jeweili- 
gen Bildschirmes mit dem Druk- 
ker zu erstellen. 
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Eine weiter gute Idee der Pro- 
grammierer ist es, einen Taschen- 
rechner im Programm zu instal- 
lieren. Dieser kann jederzeit durch 
Drücken der F7-Taste auf den 
Bildschirm gebracht werden und 
wird dann ganz normal mit der Ta- 
statur bedient. Ein weiterer Druck 
auf die ESC-Taste und der Rech- 
ner verschwindet wieder. Mittels 
einer eigenen „Memo Pad“ Funk- 
tion ist es sogar möglich, kurze 
Informationen zusätzlich abzu- 
speichern. Sehr lobenswert ist auch, 
daß vor der Initialisierung der Da- 
tendisketten dem Benutzer ange- 
geben wird, wenn er eine bereits 
beschriebene Diskette in das 
Laufwerk gelegt hat und ihm 
wird nahegelegt, daß er erst deren 
Inhalt überprüfen soll, bevor der 
Rechner diese neu  initialisiert. 
Dies sind nur einige der sehr nütz- 
lichen und durchdachten Zusatz- 
möglichkeiten zu den vier Haupt- 
unterprogrammen, die dieses Pro- 
gramm bietet. Dazu kommen noch 
die sehr einfache Bedienbarkeit des 
Programmes und die einfache Les- 
barkeit des übersichtlichen Handbu- 
ches, das trotz seines Umfanges 
(auch auf Grund eines ausführlichen 
Beispieles) auch von Nichtfinanz- 
experten gelesen werden kann. 


Financial Planner 


Hersteller: 
Timeworks 
444 Lake Cook Road 


Deerfield, Il. 60015 
USA 


Preis: 
59.95 US-Dollar 


Dazu bietet der Vertreiber noch 
einen besonderen Service: Eine 
kostenlose Telefonnummer, an die 
sich der Anwender in Fragefällen 
wenden kann. Alles in allem kann 
man sagen, daß dieses Programm 
eine sehr gelungene Version eines 
privaten Finanzhaushaltsprogram- 
mes darstellt, das man guten Ge- 
wissens weiterempfehlen kann. Pro- 
grammqualität, die man sonst nur 
von PC-Programmen gewöhnt ist. 
Doch zum Schluß noch ein kleiner 
Wermutstropfen: Das Programm ist 
bisher leider nur auf dem amerika- 
nischen Markt (in engl. Sprache) 
erhältlich. 


Der Aufbau des „Easyfeed 230“ 


geht relativ problemlos vonstat- 
ten. Es besteht keine elektroni- 
sche Verbindung zum Drucker. 


Lediglich ein Adapter-Gerüst wird 
in die Druckermechanik _einge- 
hängt. Dabei greift ein Zahnrad 
in das an der Walze befindliche 
Zahnrad hinein. Auf den Adap- 
ter, der für mehr als 80 Drucker- 
typen lieferbar ist, wird dann der 
eigentliche Papiereinzug gehängt, 
der ebenfalls mit einem Kunst- 
stoffzahnrad ausgerüstet ist. Damit 
sind bereits alle notwendigen Ver- 


SEITE FLOTT 
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bindungen hergestellt. Die Papier- 
zuführung wird über die Endlos- 
formularsteuerung des Druckers ge- 
steuert. 

Wer viel zu drucken hat und das 
nicht nur auf Endlospapier erledi- 
gen will, wird irgendwann mit 
dem Gedanken spielen, sich einen 
Einzelblatteinzug anzuschaffen. 


Einige Firmen haben sich auf der- 
artiges Zubehör wie Lowcost-Druk- 
ker spezialisiert. Wir haben einen 
Einzug der Schweizer Firma Mul- 
timatic mit dem Star SR-15 Ma- 
trixdrucker getestet. 


\ 
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Die künftigen Kollegen sollten nicht nur ihr 
= Handwerk beherrschen, sondern auch die 
__ Rechner, die dazu gehören. Außerdem erwarten 


um diese Computer-Typen. Ihre Bewerbung 
mit den üblichen Unterlagen bitte an 


‘>=, AKTUELL-GRUPPE, Postfach 1107, 
8044 Lohhof, z.Hd. H. Seibt. 
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TEST 


Mit einem kleinen Trick wird 
der automatische Druckerstop 
beim Öffnen der Abdeckhaube 
überlistet: Ein Magnet, auf den 
Magnetschalter geklebt, simuliert 
„Haube geschlossen“. Kleiner 
Nachteil: der Staub- und Geräusch- 
schutz läßt sich nun nicht mehr 
ganz schließen, so daß der Drucker 
etwas lauter wird. 


Saubere Arbeit 
Rund 100 Blatt Papier lassen sich 


unter die beiden Gummirollen 
klemmen und werden auch präzise 
eingezogen. Selbst während des 
laufenden Drucks kann Papier 
nachgefüllt werden. Schwierig- 


keiten machte zunächst bei mehr- 
seitigen Texten der Übergang von 
einer zur anderen Seite. Schuld da- 
ran war aber nicht das Gerät, son- 
dern die Anleitung, die über die 
notwendigen Druckereinstellungen 
(Endlospapiermodus) kein Wort 
verliert. Das als „unglaublich ein- 


fach“ gepriesene Verfahren des 
„top of form“ (etwa: Fixierung 
des Seitenanfangs) bestand den 


Praxistest mit Glanz und Gloria. 
Das verwendete Programm, in 
unserem Falle eine Textverarbei- 
tung, muß lediglich auf die rich- 
tige Seitenlänge eingestellt wer- 
den. Dann beginnt der Drucker bei 
jedem Blatt exakt an der gleichen 
Stelle seine Arbeit. Doppelblattein- 
züge haben wir bei dem verwende- 
ten 80 g-Papier nicht festgestellt. 
Kleiner Schönheitsfehler in der 
ansonsten gut nachzuvollziehenden 
Anleitung: Der für das Papierende 
zuständige DIP-Schalter ist falsch 
bezeichnet (C-1 statt B-1). 


Bezugsquelle: Multimatic Vertriebs- 
gesellschaft, Postfach 22, D-7214 
Zimmern o.R., Tel.: 0741-22132. 


Preis des tadellos funktionierenden 
Einzelblatteinzugs: runde 850,—DM. 
Bei Druckerwechsel braucht nur ein 
neuer Adapter (ab 90,— DM) zuge- 
kauft werden. Das sind zweifelsoh- 
ne angesichts des geringen Material- 
aufwandes und der vergleichsweise 
einfachen Mechanik recht stolze 
Preise. Aber bei Profidruckern muß 
man allein für einen Einzelblattein- 
zug noch mehr hinblättern, als 
für den kompletten Star-SR 15 — 
runde 2000,— DM. 
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VERDIENEN SIE GELD 


MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116/Plus 4? Oder einen 128? Können 
Sie programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 


Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzten Sie bitte anhängendes Formu- 
ları (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”” Programme ziemlich schnell 
erkennt ). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


PROGRAMMANGEBOT 


Name des Einsenders: 
Straße/Hausnr./Tel.: 
Plz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt ()Listings () Kassette () Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte 
es in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. 


Rechtsverbindliche Unterschrift 


CW/CBM 


Postfach 1107 
8044 Lohhof 


